Имам код, който изглежда доста така: ignore (f ()) handle AssertionError msg => (print ("assertion error: " ^ msg ^ "\n"); ()) | _ (* other exceptions *) => (print ("exception raised\n"); ()) Но трябва да отпечатам...