
ascii :- asc(32).

asc(127) :- !.
asc(N) :-	name(X, [N]),
			write('ascii('),
			write(N),
			write(') = '),
			write(X),
			nl,
			M is N+1,
			asc(M).
