Элемент двусвязного списка содержит указатель на строку. Вставить строку в конец списка

#include <iostream>
#include <malloc.h>
 
template<typename T>
struct node {
    node<T>* next;
    node<T>* prev;
    T val;
    node(const T& v):next(NULL), prev(NULL), val(v){}
};
 
template<typename T>
struct list_t {
    node<T>* hl, *tl;
};
 
//инициализация
template<typename T>
void list_init(list_t<T>* ls){
    ls->hl = ls->tl = NULL;
}
 
//добавление в конец списка
template<typename T>
void list_add(list_t<T>* ls, const T& val){
    node<T>* p = new node<T>(val);
    if(ls->hl == NULL)
        ls->hl = ls->tl = p;
    else {
        p->prev = ls->tl;
        ls->tl  = ls->tl->next = p;
    }
}
 
//удаление всех
template<typename T>
void list_clear(list_t<T>* ls){
    node<T>* t;
    while(ls->hl != NULL){
        t = ls->hl;
        ls->hl = ls->hl->next;
        delete t;
    }
    ls->tl = NULL;
}
 
int main(void){
    list_t<char*> ls;
    list_init(&ls);
    list_add(&ls, strdup("PASCAL"));
    list_add(&ls, strdup("FORTRAN"));
    list_add(&ls, strdup("SNOBOL"));
    list_add(&ls, strdup("COBOL"));
    list_add(&ls, strdup("PYTHON"));
 
    //вывод
    for(const node<char*>* a = ls.hl; a != NULL; a = a->next)
        std::cout << a->val << ' ';
    std::cout << std::endl;
 
    for(const node<char*>* b = ls.tl; b != NULL; b = b->prev)
        std::cout << b->val << ' ';
 
    //удалить
    for(node<char*>* i = ls.hl; i != NULL; i = i->next)
        free(i->val);
    list_clear(&ls);
    std::cin.get();
    return 0;
}