main=interact f
f x=do(a:s,t)<-lex x;a:s++f t