let init () =
  Callback.register_exception "Al.ALerror" (Al.ALerror "");
  Callback.register "Array.length" Array.length;
  init_internal ();