Lambda the Ultimate Object (2)

  (define paipo (make-person "Paipo" "Shoelinger" "student" 22))

  (paipo 'get-full-name)    ⇒ "Paipo Shoelinger"
  (paipo 'get-age)          ⇒ 22
  (paipo 'grow-older)
  (paipo 'get-age)          ⇒ 23
  (paipo 'change-occupation "writer")
  (paipo 'get-occupation)   ⇒ "writer"

  (define gulin (paipo 'bear-child "Gulindai"))
  (gulin 'get-full-name)   ⇒ "Gulindai Shoelinger"
  (gulin 'get-age)         ⇒ 0