1:- module(swi_codes, [split_lines/2]).
10split_lines([], []) :- !. 11split_lines(Codes, [Line|More]) :- 12 append(Line, [0'\n|Rest], Codes), 13 !, 14 split_lines(Rest, More). 15split_lines(Line, [Line])