let tupleAcceptingFunction (isSuccess, value) =
  if isSuccess then
    Ok value
  else
    Error "some error occured"

let tupleReturningFunctions =
  [
    fun () -> true, 1
    fun () -> false, -1
  ]

let applied =
  tupleReturningFunctions
  |> Seq.map (fun f -> f())
  |> Seq.map tupleAcceptingFunction

tupleReturningFunctions
|> Seq.map (fun f -> f >> tupleAcceptingFunction)
|> Seq.map (fun f -> f())

let ProcessProducts2 = ProcessPrice |> List.map >> List.map(fun f p -> f(p)) >> List.reduce (fun accumulator next ->
 SumProducts(accumulator, next))