Слова из файла поместить в 2 списка

goal:-see('f2.txt'),get_char(CH),get_word(CH,H),get_all_words1(Tail),A=[H|Tail],seen,preobraz(A,[],AA),
      see('f2.txt'),get_all_words1(B),seen,preobraz(B,[],BB).
get_word(C1,S):-char_type(C1,white),!,S=[].
get_word(C1,S):-char_type(C1,end_of_line),!,S=[].
get_word(C1,S):-char_type(C1,end_of_file),!,S=[].
get_word(C1,S):-char_code(C1,Code),S=[Code|SS],get_char(CC),get_word(CC,SS).
get_all_words1(X):-get_char(C),get_word(C,H),H==[],!,X=[].
get_all_words1(X):-get_char(C),get_word(C,H),X=[H|Tail],get_all_words1(Tail).
preobraz([],S,S).
preobraz([Head|Tail],S,SS):-string_to_list(A,Head),append(S,[A],S1),preobraz(Tail,S1,SS).

goal:-
      see('f2.txt'),
      get_all_words1(L),
      seen,
      preobraz(L, [], LL),
      split(LL, AA, BB),
      write(AA), write(BB).
 
get_word(C1,S):-char_type(C1,white),!,S=[].
get_word(C1,S):-char_type(C1,end_of_line),!,S=[].
get_word(C1,S):-char_type(C1,end_of_file),!,S=[].
get_word(C1,S):-char_code(C1,Code),S=[Code|SS],get_char(CC),get_word(CC,SS).
 
get_all_words1(X):-get_char(C),get_word(C,H),H\=[],!,X=[H|Tail],get_all_words1(Tail).
get_all_words1([]).
 
preobraz([],S,S).
preobraz([Head|Tail],S,SS):-string_to_list(A,Head),append(S,[A],S1),preobraz(Tail,S1,SS).
 
split([H1,H2|T], [H1|T1], [H2|T2]) :-
    !,
    split(T, T1, T2).
split(L, L, []).