sub next_random_number {
    my ($prev_number) = @_;
    $prev_number ||= 0;

    return ($prev_number + 14412312 ) / 123142131;
}