main=interact$f.lines f(a:x)=[t:[t|show s`elem`words a]|(s,t)<-zip[1..]x]>>=unlines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page