main=f '1'
f x=do s<-getLine;putStrLn[x#s];f$x#s
c#[a,b]|c==a=b|c==b=a|0<1=c