f s|[(a,_:b)]<-lex s,[(c,_:d)]<-lex b=[a!!read[i]|i<-c]++'\n':f d;f e=e;main=interact f