1let
2
3class account
4{:
5 private
6   pin:int,
7   bal:int
8 public
9   function make(i:int, p:int) =
10     (bal := i; pin := p; printf("%d\n",pin))
11   function withdraw(x:int) =
12     (bal := bal - x)
13   function deposit(x:int) =
14     (bal := bal + x)
15   function inquiry() : int = bal
16:}
17
18class c2
19{:
20private
21   x:int
22public
23   function make(i:int) = (x := i; printf("class c2, x=%d\n",x))
24:}
25
26var mya:account := 0   % :=0 is meaningless here
27var yoa:account := 0
28var myc2:c2 := 0
29
30function f() : int = 4
31
32in
33myc2.make(6);
34mya.make(100,3421);
35yoa.make(200,1234);
36mya.withdraw(40);
37yoa.deposit(50);
38printf("My balance is %d\n",mya.inquiry());
39printf("Your balance is %d\n",yoa.inquiry())
40end
41$
42
43
44
45
46