type a = <id : string>type b = <id : string> let get_id (a : a) = a#id let b : b = object method id = "test" endlet test = get_id b
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!