each :: [a] -> (a -> IO ()) -> IO () each [] _ = return () each (hd:tl) fn = do fn hd each tl fn
To embed this project on your website, copy the following code and paste it into your website's HTML: