久々の投稿。
ブログの書き方自体　忘れてしまっていて　って感じで。。。

【初稿】100バイト

n#[]=[]
n#l=take n l:(n+1)#(drop n l)
main=do n<-readLn;mapM putStrLn$map(unwords.map show)$1#[1..n]

【修正1】100バイト

n#[]=[]
n#l=take n l:(n+1)#(drop n l)
main=interact(\n->unlines$map(unwords.map show)$1#[1..read n])

interact + ラムダ にしたが縮まらない。。。