program:- 
		% The name of the file is asked to the user. 
		display("File with double quotes -> "),
		read(String),

		% Convert the String into an atom: File
		name(File,String),		

		% Open the File indicated by the Atom 
		open(File,read,Stream),

		% Loop driving by failure 
		repeat,
			get0(Stream,Character),
			process(Character),
		close(Stream),
		!.

% Character end of file = -1 
process(-1):- !.

% Process the rest of character 
process(Character):- put(Character), fail.


