### console [console]
habnabit@ender $ ./gsl_test.native 
Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")

habnabit@ender $ ./gsl_test.byte 
got an exception
Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
Raised by primitive operation at file "pplacer_src/gsl_test.ml", line 7, characters 16-66
Re-raised at file "pplacer_src/gsl_test.ml", line 12, characters 8-11
### gsl_test.ml [ocaml]
exception Got_value of float

let () =
  Gsl_error.init ();
  let exn =
    try
      Got_value (Gsl_cdf.gamma_Pinv ~p:0.250000 ~a:0.016000 ~b:1.)
    with
      | exc -> exc
  in
  print_endline "got an exception";
  raise exn