source: to-imperative/trunk/samples/Syntax/iter1.rf @ 1230

$use StdIO;

Main =
  1 2 3 : e.nums,
  e.nums $iter {
    e.nums : s.n e.rest =
      <PrintLN s.n>,
      e.rest;
  } :: e.nums,
  e.nums : /*empty*/;