x="01";m@main=getLine>>=putStrLn.(>>=(drop 3[a:b:c:[d]|a<-x,b<-x,c<-x,d<-x]!!).read.(:[]))>>m