domains
    strlist = string*
predicates
    start
    createlist(string,strlist,strlist)
clauses
    start:-
        createlist("This is testing",[],List).        

    createlist(Line,Old_list,New_list):-
        Line <> "",
        fronttoken(Line,Token,Rest),
        New_list = [Token | Old_list],
        createlist(Rest,New_list,Blank_list).

    createlist(_,List,[]):-
        write(List).