program(File):- 
		% Open the file for reading
		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.

