let wrap2 f a b = try `Ok (f a b) with | e -> `Error e