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.