main=do x<-readLn;mapM(putStrLn.unwords.map show)$reverse$takeWhile(not.null)$map(takeWhile(x>=))$iterate(map pred.tail)$scanl(+)1[2..]