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