vprint  "%2f.%4s\n",$num1, $num2;