alcotest
val map : ('a -> 'b) -> ('a, 'e) result -> ('b, 'e) result