anchor.diff:          main state
   
       | Error(msg) ->
  -        Console.Error.WriteLine(msg)
  +        Console.WriteLine(msg)
           main state
   
       | Quit ->
  
positive.code:                 (Map.fold (fun ks k _ -> k::ks) [] state.Files)
      match parseCommand(Console.ReadLine()) with
      | Declarations ->
          Console.Error.WriteLine("Declarations not yet implemented")
          // let decls = agent.GetDeclarations(opts)
          // for tld in decls do
          //   let (s1, e1), (s2, e2) = tld.Declaration.Range
  
negative.code:           Console.WriteLine("DONE: Background parsing started")
            main { state with Files = Map.add file lines state.Files }
          else
            Console.WriteLine(sprintf "ERROR: File '%s' does not exist" file)
            main state
  
      | Project file ->
  