print("" . $a[1] . "  " . " $p%\n");