f(){cal $m $(($y+400))|c$@|wc -w
}
while IFS=- read y m
do
a=`f at`
b=`f ut -c 3-18`
let 'd=a-9,r=(100*(b-7)+d/2)/d'
echo $r
done