fork download
  1. type a = <id : string>
  2. type b = <id : string>
  3.  
  4. let get_id (a : a) = a#id
  5.  
  6. let b : b = object method id = "test" end
  7. let test = get_id b
  8.  
Success #stdin #stdout 0s 4304KB
stdin
Standard input is empty
stdout
Standard output is empty