qdate() #@ Print information about a given date number
{ #@ USAGE: qdate YYYYMMDD
local num= day month year indent=27
split_date "$*"
is_date "$year-$month-$day" || err 1 "Invalid date: $*\nUSAGE: qnum YYYYMMDD" || return
printf -v num %02d%02d%02d "$year" "$month" "$day"
printf '\n Date %d-%02d-%02d:\n' "$year" "$month" "$day"
qnum "$num"
echo $'\n Year:'
qnum "$year"
echo $'\n Month:'
qnum "$month"
echo $'\n Day:'
qnum "$day"
for e in {3..10}
do
n_root "$num" "$e" && echo "$num~$n_root~"
done
}