m@main=do x<-readLn;print$until(x<)(2*)2;m