while (my $current_number = <STDIN>)