Перенос программы из Turbo Prolog в SWI-Prolog

domains
  file=myfile; myfile1
    
predicates
  go
  transform
  tr(string,string)
  
goal
  clearwindow,
  go, renamefile("test1.txt","test.txt"),
  write("done"),nl.
  
  
clauses
 
transform:-
  not(eof(myfile)),!,
  readln(S),
  tr(S,S1),
  write(S1),nl,
  transform.  
transform:-
  closefile(myfile),
  closefile(myfile1).
 
tr("",""):-!.
tr(S1,S):-
  frontstr(1,S1,C,S2),
  concat(C," ",C1),
  tr(S2,S22),
  concat(C1,S22,S).
  
  
go:-
  openread(myfile,"test.txt"),
  readdevice(myfile),
  openwrite(myfile1,"test1.txt"),
  writedevice(myfile1),
  transform,
  readdevice(keyboard),
  writedevice(screen).

convert(File) :-
    open(File, read, Stream),
    open("sampleNEW.txt", write, Stream2),
    get_char(Stream, Char1),
    write(Stream2, Char1),
    write(Stream2, " "),
    process(Char1, Stream, Stream2),
    close(Stream),
    close(Stream2).
 
process(end_of_file, _, _) :- !.
 
 
process(Char, Stream, Stream2) :-
    %write(Char),
    get_char(Stream, Char2),
    write(Stream2, Char2),
    write(Stream2, " "),
    process(Char2, Stream, Stream2).