sub value {
    my ($self) = @_;
    return ()=( $self->{first},
                $self->{rest} ? $self->{rest}->value : () );
}