@a=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);sub r{!($_[0]%400)||$_[0]%100&&!($_[0]%4)};sub p{$_[0]=~/[469]|11/};while(<>){($a,$b)=split/ /;$y=$m=$w=1;for(;$y-$a;$y++){$w++;r($y)&&$w++}for(;$m-$b;$m++){$w+=$m-2?p($m)?2:3:r($y)}$n=$m==2&&!r($y)?28:$m==2&&r($y)?29:p($m)?30:31;print"$a[$b-1] $a\n";@d=((' ')x($w%7),1..$n);for(@d){$_<10&&($_=" $_")}for(0..$#d/7){$e=(7*$_+6)<$#d?(7*$_+6):$#d;print" @d[7*$_..$e]\n"}print"\n"}