On Wednesday, July 30, 2003 1:52 PM, Shawn P. Garbett [SMTP:Shawn@Garbett.org] wrote:

output :: (a -> IO b) -> [a] -> IO () output f = (foldr (>>) (return ())).(map f)

Study the Prelude :)

output :: (a -> IO b) -> [a] -> IO () output = mapM_