m@main=do n<-getLine;print$10^div(length n)4+1;m