【初稿】 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) = 面積から２次方程式の解の公式使うことで解くことは出来たけど。。。
うーん。　あと５バイトが届かない．．． 

【初稿】 78バイト

import Char
main=mapM print[x|x<-[1..2000],mod x(sum$map digitToInt$show x)<1]

digit sum の解答が落ちていたので、拾い乞食してしまった。。。

【修正後1】 74バイト

f 0=0
f x=mod x 10+f(div x 10)
main=mapM print[x|x<-[1..2000],x`mod`f x<1]

【初稿】 53バイト

f[x,y]=print$x+y
m@main=getLine>>=f.map read.words>>m

【修正1】 50バイト

m@main=getLine>>=print.foldl1(+).map read.words>>m

少し短くなった。

【多分詰み】 44バイト

m@main=getLine>>=print.sum.map read.words>>m

多分、詰みだと思う。foldl とか使わず、sumで良かったのか。

【前回までのベスト】93バイト

import List
main=interact$unlines.take 12.iterate(concatMap(\x->shows(length x)[x!!0]).group)

【修正後1】88バイト

import List
main=interact$unlines.take 12.iterate((>>= \x->shows(length x)[x!!0]).group)

ようやく縮んだ。。。ふー。
>>= と ラムダの間にスペースを入れるとコンパイルが通ったが、
何故それで良いのかイマイチ理解できてない。

golf の戦い方として、concat.map が使える形に落とし込んでから >>= に変換するなどが
あるんだろうなあと感じた問題だった。
この先はかなり暗闇なので、格闘するかは考え中。