print "num=$num, result=", ($num ? substr("912345678", $num%9, 1) : 0), "\n";