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).