1fmapList :: (a -> b) -> [a] -> [b] 2fmapList _ [] = [] 3fmapList fab (a : as') = fab a : fmapList fab as' 4