m@main=getLine>>=print.f>>m
f x|or$zipWith(>)x$tail x=0|0<1=1