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