module Bi_util: sig .. end
sig
end
exception Error of string
string
val error : string -> 'a
string -> 'a
error msg
raise (Error msg)