source:
to-imperative/trunk/samples/Syntax/block6.rf
@
2048
Last change on this file since 2048 was 2048, checked in by orlov, 15 years ago | |
---|---|
|
|
File size: 178 bytes |
Line | |
---|---|
1 | $use StdIO; |
2 | |
3 | $func F s = s; |
4 | F s1 = s1; |
5 | |
6 | Main = |
7 | <WriteLN A { B; } C>, |
8 | <WriteLN A { B <F 1>; } C>, |
9 | <WriteLN A { <F 1> <F 2>; } C>, |
10 | <WriteLN A ({ <F 1>; }) ({ <F 2>; }) C>; |
Note: See TracBrowser
for help on using the repository browser.