no = do foo ; mapM print a