:Class Person
:Field age←0
:Field name←'-'
:Property Age
:Access Public
∇ num←get
num←⌊age
∇
:EndProperty
∇ Grow amount
:Access Public
age+←amount
∇
Upper←1∘(819⌶)
Lower←0∘(819⌶)
:Property Default Name
:Access Public
∇ text←Get
:If '-'≡name
text←'I don''t have a name!'
:Else
text←'Hi, my name is ',name,'!'
:EndIf
∇
∇ Set text
name←(Upper⊃text.NewValue),Lower 1↓text.NewValue