(find-by-id $global.world.history.figures $id $) (describe-obj $.name) (awhen (find-creature $.race) (fmt "~:(~A ~A~)" $it.caste[$.caste].caste_id $it.creature_id)) dtor 8532fa0