##ifdef CAMLTK

let contained x y w =

  w = containing x y

;;

##else

let contained ~x ~y w =

  forget_type w = containing ~x ~y ()

;;

##endif