1main = forM_ cmdReports $ \x -> do 2 putStrLn $ "Writing report to " ++ x ++ " ..." 3 writeReport x ideas 4