


















Novembe
83













































































































































































































































































































































































































elimiters]), !.
read_u
(_, Delimiters, Re
:-
	read_until
imiters, R
.



%
he























































































		% D is Char forced to lowe
se
	D >= "a", D =< "z".	
 is a lower case let


is_digit(Char)
	Char >= "0"
ar =< "9
 dec














































































































































































































































































har|Cleaned]) :- !,
	trim_bl
_rest_word(Chars, Cleane
trim_blanks_next_wor
, []).



/*  ch
to_words(Cha
Words)
 
arse



























































































 would b
rsed






































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































