m@main=do x+1<-readLn;putStrLn$(\y->shows(-y)" to "++show(y-1))$2^mod x 32;m