main=getLine>>=f f s|(w,_:t)<-span(/=';')s=putStrLn[w!!read[d]|d<-w,d<':']>>f t
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page