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