source: to-imperative/trunk/samples/Syntax/iter5.rf

Last change on this file was 3969, checked in by orlov, 12 years ago
File size: 156 bytes
Line 
1$use StdIO;
2
3$func Main = e;
4Main =
5  1 2 : e.body 2 e =
6  e.body $iter {
7    e.body : s e.body2 = e.body2;
8  } :: e.body,
9  <WriteLn e.body>,
10  e.body : ;
Note: See TracBrowser for help on using the repository browser.