main=interact$f.lines;f x=x>>=(x?);[_]?_="\n";x?(y:z)=y:[v|u:v<-x,u==y]?z