sub shuffle($$$) {
    my ($seed, $max, $input) = @_;

    # $max > $input
    # $max > 0
    # $input >= 0

    my $result;

    # calculate $result

    # $result >= 0
    # $result < $max

    return $result
}