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