: field-sets-class ( obj -- obj' ) dup occupation>> { { "lawyer" [ lawyer ] } { "dentist" [ dentist ] } [ drop worker ] } case new [ [ ] bi@ swap update ] [ nip ] 2bi ;