$use StdIO;

$func XYZ = s;
XYZ = XYZ;

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