import List
main=do{w<-getLine;c<-getContents;putStr$unlines[t|t<-lines c,sort t==sort w]}