














September 1984
%  
pose: Bundle a
nbundle fi

%   N
  

























































































































































































nd _





















































  





























































































































































































































  fx, bundle).
:- op(100,  fx, unbundle).

:- mode
	bundle(+),
	bundle(+, +),
	bundle1(+, +),
	b
e2(+, +),
	copy_to_bundle(+, +),
	get_one_line(-),
	get_one_line









































































































































































































































































































































;   0'0 =< Char, Char =< 0'9
ep = Char
	;   0'- == Ch
      Keep = 0'8	% f
MS
	;   0'_ == C
	      Keep 
9	% for 
	), 
























































































































































































































































es



 -



























	nl, g
C)































































r
copy
bu




















































































































































































































































































































































































































































































































































































































in























[]) :-
ge




































