sub quite_functional_FY {
    my $i = int rand @_;
    return @_ ? ($_[$i], quite_functional_FY(@_[0 .. $i-1, $i+1 .. $#_])) : ();
}