(set! (.in (.#.name  o)) (make <#x:instance->type-name .in>))