> applyEach [(+1), (+3), (+2)] 1 > => [2,4,3] :: [Integer] > > > applyEach' :: [a->b] -> a -> [b] > > applyEach' funs x = map applyx funs where applyx (fun) = fun x ...or more simply: applyEach' l x = map ($x) l