Result<'a, 'b> list -> Result<'a list, 'b>

// string -> Result<int, string>
let tryParseInt str =
  match Int32.TryParse str with
  | true, x -> Ok x
  | false, _ -> 
    Error (sprintf "unable to parse '%s' to integer" str)
​
// returns - Ok [1;2;3]
["1";"2";"3"]
|> List.map tryParseInt
|> List.sequenceResultM 
​
// returns - Error "unable to parse 'foo' to integer"
["1";"foo";"3";"bar"]
|> List.map tryParseInt
|> List.sequenceResultM