open Printf
open Xentoollog
open Xenlight

let _ =
  try
    Xenlight.test_raise_exception ()
  with Xenlight.Error(err, fn) -> begin
    printf "Caught Exception: %s: %s\n" (Xenlight.string_of_error err) fn;
  end