type a = <id : string>
type b = <id : string>
let get_id (a : a) = a#id
let b : b = object method id = "test" end
let test = get_id b
dHlwZSBhID0gPGlkIDogc3RyaW5nPgp0eXBlIGIgPSA8aWQgOiBzdHJpbmc+CgpsZXQgZ2V0X2lkIChhIDogYSkgPSBhI2lkCgpsZXQgYiA6IGIgPSBvYmplY3QgbWV0aG9kIGlkID0gInRlc3QiIGVuZApsZXQgdGVzdCA9IGdldF9pZCBiCg==