$use StdIO;

$func Main = e;
Main =
  {
    /*emtpy*/ $iter {
      e1 I :: e1, e1;
    } :: e1,
      <WriteLn e1>,
      e1 : I I I =
      e1;
  } :: e1,
  <WriteLn e1>;