/*** 149.read.prolog */
/** Examples for reading streams in Prolog. */

/*** Code: */

hello_1 :-
  write('Your name (as a Prolog term, with a period . on the end)? '),
  read(X),
  write('Hello, '),
  write(X).

:- consult(library(readutil)).

hello_2 :-
  write('Your name (as a single line)? '),
  current_input(S),
  read_line_to_string(S, X),
  write('Hello, '),
  write(X).

/*** 149.read.prolog ends here */