while read y m
do
cal -h $m $y|sed 's/^/ /;s/ *$//;1s/ *\(...\).* /\1 /;2d;${/./G}'
done