list - 如何为win-prolog翻译器编写仅包含原子的列表的输出？

Question

当用户通过 Win-Prolog 输入“i like prolog”或“saya like Prolog”时，预期输出将分别为“saya suka prolog”或“i suka Prolog”，基于以下代码：

words(saya,i).
words('Saya','I').
words(suka,like).
words('Suka','Like').
words(prolog,prolog).
words('Prolog','Prolog').

translation(X,Y):-
    words(X,Y).
translation(X,Y):-
    words(Y,X).
translation(X,X).

translate([], []).
translate([H|T], [H1|T1]):-
             translation(H, H1),
             translate(T,T1).

prolist([],[]).
prolist(SL,[W|T]):-
    split(SL,WL,R),
    name(W,WL),
    prolist(R,T).

split([],[],[]).
split([32|T],[],T).
split([H|T],[H|T2],R):-
    split(T,T2,R).  

run:-
    nl,write('Enter One sentence or word (English or Malay):'),
    read(X),end(X),
    nl.

end(X):-    
    X=q->write('SESSION END. THANK YOU. ');
    name(X,SL),prolist(SL,List),translate(List,W),
    nl,
    write('Translated as:'),
    write(W),
    nl,
    run.

但输出如下：

[i,like,prolog]
[saya,like,Prolog]

如何解决？我没有使用 SWI-Prolog，我知道如何执行此代码的 SWI 版本，因为该代码是为 Win-Prolog 编写的。