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 printvals (name : string option) (dict : Dictionary<string, string>) =
                          match name with
                          | Some(name) ->
                              print <| sprintf "%s:" name
                          | None ->
                              match vals |> Seq.tryFind (fun kv -> kv.Value = dict) with
                              | Some(kv) ->
                                  print <| sprintf "%s:" kv.Key
                              | _ -> ()
                          for x in dict do
                              if property.IsNone || property.Value = x.Key then
                                  print <| sprintf "  %s: %s" x.Key x.Value
                      if name = Some("all") then
                          for x in vals do
                              printvals (Some x.Key) x.Value
  
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
  