f s|[(a,_:b)]<-lex s,[(c,_:d)]<-lex b=[a!!read[i]|i<-c]++'\n':f d;f e=e;main=interact f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page