m@main=getLine>>=putStrLn.foldl1(?).words>>m;a?b=[(a>>d:filter(/=d)b)!!3|d<-a]