var n:byte;begin readln;repeat
read(n);writeln(n,^`,trim(copy("Janua FebruaMarch April May June July AugustSeptemOcto Novem Decem",n*6-5,6)),"ry":ord(n<3)*2,"ber":n div 9*3)until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).