anchor.diff:  let SaveToDatabase input =
       match input.First |> Seq.toList with
       | 'A'::_ -> Failure "Your name started with 'a'"
  -    | _ -> Success { First = input.First; Last = input.Last; Age = input.Age; Id = 45}
  +    | _ -> Success { MyDbEntity.First = input.First; Last = input.Last; Age = input.Age; Id = 45}
   
   let EchoToUser result =
       match result with
  
positive.code:     Success input
      >>= ValidateAllOfTheThings
      >>= SaveToDatabase
      |> EchoToUser
negative.code: ﻿
  
  type MyDbEntity = { Id: int; First:string; Last: string; Age: int}
  type MyInput = { First:string; Last: string; Age: int}
  
  
  type Result<'a> =
      | Success of 'a
  