module Am_Common:sig..end
val dbg : ('a, unit, string, unit) Pervasives.format4 -> 'aval failwith : ('a, unit, string, 'b) Pervasives.format4 -> 'aval invalid_arg : ('a, unit, string, 'b) Pervasives.format4 -> 'aexception Not_implemented of string
val not_impl : string -> 'a