(* Test: Readers *)

MODULE Main;

FROM Stdio IMPORT stdin, stdout;
IMPORT Rd, Wr;

BEGIN
  TRY
    LOOP
      Wr.PutChar (stdout, Rd.GetChar (stdin)); END;
  EXCEPT
  | Rd.EndOfFile =>  END;

  Wr.Close (stdout);
END Main.