>>24
program :- 算譜.

算譜引数(_算譜引数) :- user_parameters(_算譜引数).

書式付出力(_書式1,_値ならび) :- 書式変換(_書式1,_書式2),write_formatted(_書式2,_値ならび).

書式変換(_書式1,_変換された書式) :-
　　　　atom_chars(_書式1,Chars),
　　　　書式変換_1(Chars,Chars2),
　　　　atom_chars(_書式2,Chars2).

書式変換_1([],[]).
書式変換_1([％,文,字,列|R1],['%',s|R2]) :- 書式変換_1(R1,R2).
書式変換_1([％,改,行|R1],['\\',n|R2]) :- 書式変換_1(R1,R2).
書式変換_1([A|R1],[A|R2]) :- 書式変換_1(R1,R2).

で完全に動くかな。