人がケーキを食べるシミュレーション

;世界があった。
(defvar *the-world* nil)

;神はケーキを作った。
(push '(cake) *the-world*)
>((cake))

;神は人間を作った。
(push '(person) *the-world*)
>((person) (cake))

;神は人間にケーキを食べさせた。
(set-status ;疑似コード
 '((a person) -ing) '(eat (a cake)) *the-world*)
>(((person) (-ing (eat #1=(cake)))) #1#)

;神は時を進めた。
(roll-on ;疑似コード
 *the-world*)
>((person))

;世界には人間だけが残った。
*the-world*
>((person))