while(0<1)println(readLine./:(1L)((z,c)=>Seq(z-1,z+1,z,z*18,z,z/18-z%18/9+1)(c%6))/2)