Module Ocollection

type ('a, 'b) view =
  1. | Empty
  2. | Cons of 'a * 'b
class virtual 'a ocollection : object ... end