1 2 3 4 5 6 7 8 9
module Foo (f) where -- export food f x = x -- !!! weird patterns with no variables 1 = f 1 [] = f [] 1 = f (f 1) [] = f (f [])