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.