anchor.diff:                  let path = SyntaxNode.SynBinding b :: origPath
                   match b with
                   | SynBinding(headPat=synPat; expr=synExpr) ->
  -                    [ traversePat path synPat
  -                      traverseSynExpr path synExpr ]
  -                    |> List.tryPick id
  -            visitor.VisitBinding(origPath, defaultTraverse,b)
  +                    match traversePat path synPat with
  +                    | None -> traverseSynExpr path synExpr
  +                    | x -> x
  +            visitor.VisitBinding(origPath, defaultTraverse ,b)
   
           match parseTree with
           | ParsedInput.ImplFile (ParsedImplFileInput (modules = l))-> 
  
positive.code:                     |> pick expr
  
                  | SynExpr.Typed (synExpr, synType, _range) ->
                      [ traverseSynExpr synExpr; traverseSynType synType ] |> List.tryPick id
  
                  | SynExpr.Tuple (_, synExprList, _, _range) 
                  | SynExpr.ArrayOrList (_, synExprList, _range) ->
  
negative.code:                     match synSimplePats with
                      | SynSimplePats.SimplePats(pats,_) ->
                          match visitor.VisitSimplePats(path, pats) with
                          | None -> traverseSynExpr synExpr
                          | x -> x
                      | _ -> traverseSynExpr synExpr
  
                  | SynExpr.MatchLambda (_isExnMatch,_argm,synMatchClauseList,_spBind,_wholem) -> 
  