m@main=do l<-getLine;putStrLn$[k|n<-[9,8..],k<-[take n$drop x l|x<-[0..length l-n]],k==scanl1 min k]!!0;m