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