MODULE Main;

IMPORT Wr, Stdio, Fmt, Params;

VAR t: TEXT;
BEGIN
  FOR i := 0 TO Params.Count DO
    Wr.PutText (Stdio.stdout, Fmt.Int (i));
    Wr.PutChar (Stdio.stdout, ' ');
    t := Params.Get (i);
    IF (t = NIL)
      THEN Wr.PutText (Stdio.stdout, "<NIL>");
      ELSE Wr.PutText (Stdio.stdout, Params.Get (i));
    END;
    Wr.PutChar (Stdio.stdout, '\n');
  END;
END Main.