let
exn e = s (
Printexc
.to_string e)