main=interact$f.lines f i=i>>=g i g[_]_="\n" g x(a:b)=a:g[z|y:z<-x,y==a]b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page