anchor.diff:          if startWithMember sel then
              (sprintf "type T = \n%s" (new String(' ', startCol) + sel), TypeMember)
           elif sel.StartsWith("and") then
  -            let p = getPatch startCol lines.[..r.StartLine - 1]
  +            let p = getPatch startCol lines.[..r.StartLine-1]
               let pattern = Regex("and")
               let replacement = 
                   match p with
  
positive.code:     let formatSelection fsi config selection =
          Context.create config selection
          |> genParsedInput (parse fsi selection)
          |> ifElse (s.[finish] = '\n') sepNln sepNone
          |> dump
          |> integrateComments selection
  
  
negative.code: 
  /// Make a range from (startLine, startCol) to (endLine, endCol) to select some text
  let makeRange startLine startCol endLine endCol =
      mkRange "/tmp.fsx" (mkPos startLine startCol) (mkPos endLine endCol)
  
  /// Get first non-whitespace line
  let rec internal getStartLine (lines : _ []) i =
  