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