anchor.diff:          | ["<C-b>"] -> Some PageUp
           | _ -> None
   
  -    let (|FindChar|_|) character =
  -        match character with
  +    let (|FindChar|_|) = function
           | "f" -> Some ToCharInclusive
           | "F" -> Some ToCharInclusiveBackwards
           | "t" -> Some ToCharExclusive
           | "T" -> Some ToCharExclusiveBackwards
           | _ -> None
   
  -    let (|Action|_|) character =
  -        match character with
  +    let (|Action|_|) = function
           | "d" -> Some Delete
           | "c" -> Some Change
           | "v" -> Some Visual
           | "y" -> Some Yank
           | _ -> None
   
  -    let (|ModeChange|_|) character =
  -        match character with
  +    let (|ModeChange|_|) = function
           | "i" -> Some InsertMode
           | "v" -> Some VisualMode
           | "<C-v>" -> Some VisualBlockMode
           | "V" -> Some VisualLineMode
           | _ -> None
   
  -    let (|Escape|_|) character =
  -        match character with
  +    let (|Escape|_|) = function
           | "<esc>" | "<C-c>" | "<C-[>" -> Some Escape
           | _ -> None
   
  
positive.code: 
  module Vim =
      let mutable clipboard = ""
      let (|VisualModes|_|) mode =
          match mode with
          | VisualMode | VisualLineMode | VisualBlockMode -> Some VisualModes
          | _ -> None
  
  
negative.code:             editor.SetSelection(startLine.Offset, endLine.EndOffsetIncludingDelimiter)
          | _ -> editor.SetSelection(start, finish)
  
      let (|MoveUpOrDown|_|) = function
          | { commandType=Move; textObject=Up }
          | { commandType=Move; textObject=Down } -> Some MoveUpOrDown
          | _ -> None
  
      let runCommand vimState editor command =
  