sig
  exception NYI of string
  val not_yet_implemented : string Pervasives.ref
end