MODULE Main;

IMPORT Rd, Stdio;
FROM Test IMPORT done, msg;

VAR i: TEXT;

BEGIN
  TRY
    LOOP
      msg ("Enter something");
      i := Rd.GetLine (Stdio.stdin);
      msg ("thanks for " & i & "$$$"); END;
  EXCEPT 
  | Rd.EndOfFile => msg ("you don\'t want to speak, eh ?"); END;

  done ();
END Main.