http://golf.shinh.org/p.rb?Look+and+say

f n(x:[])=show(n+1)++[x]
f n(x:s)|x==head s=f(n+1)s|1>0=show(n+1)++[x]++f 0 s
main=do l<-getLine;mapM putStrLn$take 12$iterate(f 0)l

ぶっちぎりで西海。。。

f n(x:s)|s==[]=show(n+1)++[x]|x==head s=f(n+1)s|1>0=show(n+1)++[x]++f 0 s
main=do l<-getLine;mapM putStrLn$take 12$iterate(f 0)l

その後、4バイトだけ縮まった。。。 まだ、西海にたたずんでいる。。。