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