w=0;d=6&2-gets.ord;52.times{$><<" %02d: %%02d"[d<7?1/w+=1:6,19]%w%-~d;d+=7;d%=30+w/8^w&2/w+1}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page