sub node {
        my ($head, $tail) = @_;
        return [$head, $tail];
}