module BatOo:Operations on objectssig..end
val copy : (< .. > as 'a) -> 'aOo.copy o returns a copy of object o, that is a fresh
object with the same methods and instance variables as oval id : < .. > -> intmodule Internal:sig..end