### test.ml [ocaml]
exception Test_exc

type t = {exc: exn}

let raise_f () = raise Test_exc

let () =
  let i = try raise_f () with exc -> {exc} in
  raise i.exc

### output.txt
Fatal error: exception Test.Test_exc
Raised at file "pplacer_src/test.ml", line 5, characters 23-31
Called from file "pplacer_src/test.ml", line 8, characters 14-24
Re-raised at file "pplacer_src/test.ml", line 9, characters 8-13