f x|sum x<6^8=putStrLn(unwords$show<$>x)>>f(reverse$zipWith(+)(0:x)$x++[1]) main=f[1]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page