anchor.diff:          else
               None
   
  -    let (|Movement|_|) character =
  -        match character with
  +    let (|Movement|_|) =
  +        function
           | ["h"] -> Some Left
           | ["j"] -> Some Down
           | ["k"] -> Some Up
  
positive.code: 
  module Vim =
      let mutable clipboard = ""
      let (|VisualModes|_|) mode =
          match mode with
          | VisualMode | VisualLineMode | VisualBlockMode -> Some VisualModes
          | _ -> None
  
  
negative.code:         | ["<C-b>"] -> Some PageUp
          | _ -> None
  
      let (|FindChar|_|) = function
          | "f" -> Some ToCharInclusive
          | "F" -> Some ToCharInclusiveBackwards
          | "t" -> Some ToCharExclusive
          | "T" -> Some ToCharExclusiveBackwards
          | _ -> None
  
      let (|Action|_|) = function
          | "d" -> Some Delete
          | "c" -> Some Change
          | "v" -> Some Visual
          | "y" -> Some Yank
          | _ -> None
  
      let (|ModeChange|_|) = function
          | "i" -> Some InsertMode
          | "v" -> Some VisualMode
          | "<C-v>" -> Some VisualBlockMode
          | "V" -> Some VisualLineMode
          | _ -> None
  
      let (|Escape|_|) = function
          | "<esc>" | "<C-c>" | "<C-[>" -> Some Escape
          | _ -> None
  
  