• + 1 comment

    I concocted this:

    mapM_ putStrLn (map (\x -> unwords (map show x)) result)
    

    where result is [[1], [1, 1], [1, 2, 1] ...] I'm sure I could get rid of the parenthesis. Any suggestions welcome.