print $one++ if ($one % 500) == 0;