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