let inline (<!>) x y = Choice.mapError y x

let processFile: Choice<string, Error> = choice {
    let! x = readFile "file" <!> IO
    let! y = parse x <!> Parse
    let! z = higherLevelFunc y
    return x + y
}