うおー　って感じです。

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

f n[x]=show n++[x]
f n(x:s)|x==s!!0=f(n+1)s|1>0=f n[x]++f 1s
main=interact$unlines.take 12.iterate(f 1)

【修正後1】98バイト

n#[x]=show n++[x]
n#(x:s)|x==s!!0=(n+1)#s|1>0=n#[x]++1#s
main=interact$unlines.take 12.iterate(1#)

関数の名前の置き方でここまで縮むとは。。。



世界選手集団まで　あと　３バイトだ！！