sub tail {
        my $list = shift;
        if ( ref( $list->[1] eq 'CODE' ) { return $s->[1]->() );
        else { return $s->[1] }
}