type 'a t = MRand_not_implemented_yet

let map (f : 'a -> 'b) (s : 'a t) : 'b t =
  Utils.not_yet "MRand.map" (f, s)

let return (x : 'a) : 'a t =
  Utils.not_yet "MRand.return" x

let bind (sa : 'a t) (f : 'a -> 'b t) : 'b t =
  Utils.not_yet "MRand.bind" (sa, f)

let delay (f : unit -> 'a t) : 'a t =
  Utils.not_yet "MRand.delay" (f ())

let sum (li : 'a t list) : 'a t =
  Utils.not_yet "MRand.sum" li

let fail : 'a t =
  MRand_not_implemented_yet

let one_of (vs : 'a array) : 'a t =
  Utils.not_yet "MRand.one_of" vs

let run (s : 'a t) : 'a Seq.t =
  Utils.not_yet "MRand.run" s