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