class Person
    export NewPerson, Age, Name
   
    var name : string
    var age : int
   
    proc NewPerson (name_ : string, age_ : int)
        name := name_
        age := age_
    end NewPerson
   
    fcn Age : int
        result age
    end Age
   
    fcn Name : string
        result name
    end Name
end Person

var person1, person2 :^Person
new person1
new person2

person1 -> NewPerson ("Calvin", 6)
person2 := person1
person2 -> NewPerson ("Hobbes", 6)
put person1 -> Name
put person2 -> Name