while read line
do
    cal $line
done