Select Code to Download

(defun permutations (bag)
...
                            (remove e bag :count 1))))
              bag)))

sub is_empty_list
{
...

    return \@ret;
}

sub permutations 
{
...
    
    return $perms;
}