1 2 3 4 5 6 7 8 9 10 11 12
module Bar where import Foo bar :: Int -> Int bar x = foo' x x bar' :: Int -> Int -> Int bar' x y = foo' (bar (foo x)) (bar (foo y))