$use StdIO;

$func XYZ = s;
XYZ = XYZ;

$func Main = e;
Main =
  (ABC) () $iter (<XYZ>) (e1 e2) :: (e1) (e2),
  e2 : v =
  <WriteLn e2>;