sub member {
    my ($X, $head, @tail) = @_;
    return 0 unless defined($head) && scalar @tail; 
    return 1 if $X == $head;
    return member($X, @tail) if $X != $head;
}