【初稿】 20バイト

echo $(($(wc -l)+1))

酷すぎる…

【初稿】14バイト
grep " "|wc -l

あと２バイト縮まるのか…

【初稿】 77バイト
main=do n<-readLn;mapM putStrLn[unwords[show$0^abs(y-x)|x<-[1..n]]|y<-[1..n]]

これでは、まだ長すぎるかなあ。。。

【初稿】 55バイト

main=mapM print[sum[x|x<-[1..y],mod y x<1]|y<-[1..100]]

てか、考え方をガラッと変えないと、これ以上縮む気がしない。。。

【初稿】 48バイト

m@main=readLn>>=print.round.(\x->3+sqrt(x+9))>>m

【修正1】 45バイト
m@main=do x<-readLn;print$round$3+sqrt(x+9);m

x(x-6) = 面積から２次方程式の解の公式使うことで解くことは出来たけど。。。
うーん。　あと５バイトが届かない．．．