#define U(x,y);if i=x+1then write(i,^`#y^j)
var i:word;begin
repeat
read(i)U(,January)U(5,June)U(3,April)U(2,March)U(4,May)U(8,September)U(7,August)U(11,December)U(6,July)U(1,February)U(9,October)until 1=0end.