$use StdIO;

$func Main = e;
Main =
  1 2 : e.body 2 e =
  e.body $iter {
    e.body : s e.body2 = e.body2;
  } :: e.body,
  <WriteLn e.body>,
  e.body : ;