source:
to-imperative/trunk/samples/Syntax/res1.rf
@
1937
Last change on this file since 1937 was 1937, checked in by orlov, 15 years ago | |
---|---|
|
|
File size: 119 bytes |
Line | |
---|---|
1 | $use StdIO; |
2 | |
3 | $func F e = e; |
4 | F e1 = A e1 A; |
5 | |
6 | $func G = e; |
7 | G = |
8 | /*empty*/ :: e1, |
9 | <F e1> :: e1; |
10 | |
11 | Main = <PrintLN <G>>; |
Note: See TracBrowser
for help on using the repository browser.