open Printf
  
open Am_Ops
  
let dbg fmt = Printf.ksprintf (Printf.eprintf "DBG: %s\n%!") fmt
  
let failwith fmt = Printf.ksprintf failwith fmt
  
let invalid_arg fmt = Printf.ksprintf invalid_arg fmt
  
exception Not_implemented of string
  
let not_impl func = raise (Not_implemented func)
  
let () =
  Printexc.register_printer &
    (function
     | Not_implemented func ->
         some & (sprintf "Function %S is not implemented." func)
     | _ -> None)