read*;1 read*,n;print'(i0xa)',n,trim("January February March April May J&
une July August SeptemberOctober November December "(n*9-8:n*9));goto1;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).