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