source:
to-imperative/trunk/samples/Syntax/rename2.rf
@
4009
| Last change on this file since 4009 was 4009, checked in by yura, 12 years ago | |
|---|---|
| File size: 118 bytes | |
| Line | |
|---|---|
| 1 | $use Arithm StdIO; |
| 2 | |
| 3 | $func Main = e; |
| 4 | Main = { |
| 5 | 1 :: s1, |
| 6 | A B C : e t e, |
| 7 | <Add s1 1> :: s1, |
| 8 | <PrintLn s1>, |
| 9 | $fail; ; |
| 10 | }; |
Note: See TracBrowser
for help on using the repository browser.
