main=interact$f.lines
f i=i>>=g i
g[_]_="\n"
g x(a:b)=a:g[z|y:z<-x,y==a]b