anchor.diff:          open System.Text
           open System.IO
           open System.Threading
  -        open System.Reflection
   
           /// Emulates the bash-like behavior, where edits done to the
           /// history are recorded
  
positive.code:                         let ncompletions = completions.Length
                      
                          if completions.Length = 1 then
                              st |> InsertTextAtCursor (completions.[0])
                          else
                              let mutable last = -1
                              let mutable p = 0
  
negative.code:                 if i <> p then i else -1
              
  
          let private wordBackward p st =
              let text = st.Text
  
              if p = 0 then
  