1 2 3 4 5 6 7 8 9
module Foo where foo :: Int -> Int foo = (* 2) foo' :: Int -> Int -> Int foo' x y = foo x + foo y