let exn e = s (Printexc.to_string e)