#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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).