m@main=do x<-readLn;print$x-gcd 2x+3;m