import List main=do{w<-getLine;c<-getContents;putStr$unlines[t|t<-lines c,sort t==sort w]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page