(* Copyright (C) 1990, Digital Equipment Corporation.         *)
(* All rights reserved.                                       *)
(* See the file COPYRIGHT for a full description.             *)

(* Last modified on Thu Apr 19 03:31:54 1990 by muller        *)

MODULE Main;

FROM Test IMPORT msg, done;
IMPORT Time, Fmt;

BEGIN
  FOR i := 1 TO 10 DO
    msg (Fmt.Int (i));
    Time.LongPause (1); END;

  done ();
END Main.