main=do x<-readLn;mapM(putStrLn.unwords.map show)$reverse$takeWhile(not.null)$map(takeWhile(x>=))$iterate(map pred.tail)$scanl(+)1[2..]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page