/*
:- export demo/0.

demo :- 
        write('Enter character: '), get0(Ch), 
        lower(Ch),
        write('ASCII code is '), writeln(Ch).

lower(C) :-	97=<C,
		C=<122.
*/
:- export demo/0.

demo :- 
        write('Enter string of digits: '), get0(Ch), 
        getnum(Ch,N),
        write('Integer value entered '), writeln(N).


getnum(C,N) :- digit(C),
		   get0(D), 
		   restnum(D,Lc), 
		   name(N,[C|Lc]).

restnum(C, [C|Lc]) :- digit(C), 
			    get0(D), 
			    restnum(D,Lc).
restnum(C, []).

digit(C) :- 48=<C, 
		C=<57.