1: include "std"; 2: var x = 10; 3: while 4: (fun ():bool = { return x>0; }) 5: { print x; endl; x = x - 1; }; 6:
1: include "std"; 2: fun f(g:int->int,x:int) = { return g x; } 3: print 4: ( 5: f 6: ( 7: (fun(a:int):int = { return a + a; }), 8: 1 9: ) 10: ); endl; 11: 12: