object ('a)
  method clone : 'a
  method node : 'node
  method set_node : 'node -> unit
end