anchor.diff:          | UnRecognized of string
           | Missing 
           with
  +            static member tryValue result=
  +                match result with
  +                    | Ok v -> Some v
  +                    | _ -> None
  +
               static member isOk result=
                   match result with
                       | Ok v -> true
                       | _ -> false
  -            static member tryValue result=
  -                match result with
  -                    | Ok v -> Some v
  -                    | _ -> None
  +
               static member value result=
  -                match result with
  -                    | Ok v -> v
  -                    | _ -> failwithf "Not ok result %s!" (result.ToString())
  +                Option.get (Result.tryValue result)
   
       type RecognizedBlock=((Result list*string) list)
       type ColumnsAndPosition = InputAndPosition<string list>
  
positive.code:         
          bmatch 0 0
  
      [<CompiledName("RowsOf")>]
      let rowsOf v = 
          let valuesOf v' =
  
negative.code:             |> List.choose Result.tryValue
              |> List.choose Token.tryValue
  
          v |> List.map (fun (row,name)-> (valuesOf row) , name)
  
  