-- run in ghci let fc f g = g . f :t fc (map ((+) 1)) (filter (\a -> a == 0)) :t (map ((+) 1)) $ (filter (\a -> a == 0))