source: applications/trunk/UGPSummerSchool2008/src/Fab.rf @ 3826

Last change on this file since 3826 was 3826, checked in by yura, 13 years ago
  • Fab.
File size: 158 bytes
Line 
1$module Fab;
2
3$use StdIO;
4
5$func Fab e = e;
6
7Fab {
8        e1 A e2 = e1 B <Fab e2>;
9        e1 = e1;
10};
11
12$func Main = e;
13
14Main = <WriteLn <Fab A B C A D E F>>;
Note: See TracBrowser for help on using the repository browser.