Read character from input stream without removing it.
Description
peek_char( +stream, -character )
peek_char(Stream, Char) reads the next character from the input stream Streamwithout removing it nor modifying the stream's position or the end-of-file status and unifies it with Char.