# Pastebin wiuP4XXp
myMap :: (a -> b) -> [a] -> [b]
myMap f list = foldr _func _nil list