anchor.diff:              |> List.choose Result.tryValue
               |> List.choose Token.tryValue
   
  -        v |> List.map (
  -             fun (row,name)-> (valuesOf row) , name
  -             )
  +        v |> List.map (fun (row,name)-> (valuesOf row) , name)
   
  
positive.code:         | UnRecognized of string
          | Missing 
          with
              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())
  
      type RecognizedBlock=((Result list*string) list)
      type ColumnsAndPosition = InputAndPosition<string list>
  
negative.code:         
          bmatch 0 0
  
      /// Returns the values of 'Value' where the match is ok
      [<CompiledName("RowsOf")>]
      let rowsOf v = 
          let valuesOf v' =
  