A simple bank account prototype.

bankAccount.self

( |
  parent* = traits clonable.
  balance<-0.
  {'Category: transfer' 
    deposit: amount = ( balance: balance + amount ).
    withdraw: = ( | :amount | balance: 0 max: balance - amount ).
  }
| )

A Self language example to demonstrate:

• slot-object literals
• methods
• automatic setter with <-
• reflection

Insert into a shell and press "get it".

Then you can go further and enter () on another evaluator and get a new object, attribute it to a 'traits bankAccount' slot, set the creator path on annotations to this path, and refactor our bank account, moving methods to this "traits" object and resetting the parents of both objects.