anchor.diff:                      for x in newVals do
                           vals.[x.Key] <- x.Value
                   with e ->
  -                    print <| sprintf "Error: %s" e.Message
  +                    print <| sprintf "Error: %s\n" e.Message
           
               | None ->
                   print "Sorry, I couldn't understand that\n"            
  
positive.code:     let rec printTokens stream =
          match Lexer.tokenstream stream with
          | Parser.EOF -> ()
          | token -> print <| sprintf "(%A) " token
                     printTokens stream
  
      member this.prompt msg processor = 
  
negative.code:                 try
                      writeFile(file, json)
                  with e ->
                      print <| sprintf "Error: %s\n" e.Message
              | Some(Load(file)) ->
                  let file = if file.Contains(".json") then file else file + ".json"
                  try
  