chop $num while $num > 9;