% File:  01-process.p

:- consult('io.p').

cvt :- 
  read_sentence(Sentence),
  Sentence \== [quit, '.'],
  write_sentence(Sentence), !,
  nl,
  phrase(sentence,Sentence,X), !,
  write_string(" leaves remainder X = "),
  write(X), !,
  nl,
  (
     (Sentence == X, write_string("Can't interpret that"), nl);
     true
  ),
  nl,
  cvt.

cvt.