while read y m;do cal $m $y|sed '2d;s/^/ /;1s/ *\(...\)\w*/\1/;s/ *$//;s/_.//g;8s/.$/&\n/';done