Во всех словах, оканчивающихся на "ing", замените это окончание на "ed"

[INShcherbakov]

Всем привет!
Есть решение задачки (код ниже), но преподаватель сказал, что: "использовать предикат file_str нельзя, т.к. теряете переводы строк."
Кто знает, как изменить, чтоб исправить данную ошибку?

/*процедура во всех словах, оканчивающихся на "ing", меняет это окончание на "ed"*/
/*предикаты*/
predicates
	File(string)
	ingToEd(string,string,string)
	noIng(string,string)
	change(string,string)
/*внутрение цели*/
goal
	File("t.txt").
/*факты и правила*/
clauses
	/*правило: если файл существует, то его открываем, меняем окончания и сохраняем*/
	File(F):-existfile(F),
		file_str(F,S1),
		noIng(S1,S2),
		file_str(F,S2).
	/*правила изменения окончания*/
	noIng(S,Sout):- fronttoken(S,Tok,Rest), !, 
		noIng(Rest,So), 
		change(Tok,T),
		concat(" ",So,Sou), 
		concat(T,Sou,Sout).
	noIng(_,"").
	change(A,B):-ingToEd(A,"",B),!.
	change(X,X).
	ingToEd("ing",S,Sout):-!,concat(S,"ed",Sout).
	ingToEd(A,B,Out):- frontstr(1,A,C,R), 
		concat(B,C,D), 
		ingToEd(R,D,Out).