anchor.diff:  module MainModule =
   
       type TallyResponse = {
  -        since: int64;
  -        summary: Dictionary<string, int>;
  +        since: int64
  +        summary: Dictionary<string, int>
       }
   
       type EmailTally = {
  -        artist: string;
  -        count: int;
  +        artist: string
  +        count: int
       }
   
       type SwuRecipient = {
  -        name: string;
  -        address: string;
  +        name: string
  +        address: string
       }
   
       type SwuSender = {
  -        name: string;
  -        address: string;
  -        replyTo: string;
  +        name: string
  +        address: string
  +        replyTo: string
       }
   
       type SwuTallyTemplateData = {
  -        date: string;
  +        date: string
           tally: EmailTally seq
       }
   
  
positive.code:                         tally = tally
                      }
              }
          let! response = buildMessage Http.HttpMethod.Post url (Some header) (Some message) |> makeRequest
          
          return response |> deserialize<SwuResponse>
      }
  
      [<EntryPoint>]
      let main argv =
          let mayFifth2017 = 1493614800000L
          let since = midnightYesterday () |> toUnixTimestamp
          let until = midnight () |> toUnixTimestamp
          let protocol = if isLive then "https" else "http"
          let url = sprintf "%s://%s/api/v1/orders/portraits/artist-tally?since=%i&until=%i" protocol apiDomain since until
          let summaryResponse = buildMessage Http.HttpMethod.Get url None None |> makeRequest |> Async.RunSynchronously |> deserialize
  
          if summaryResponse.summary.Count = 0 then 
              printfn "Tally response contained an empty summary. Was the `since` parameter (%i) incorrect?" since
          else 
              for kvp in summaryResponse.summary do printfn "%s: %i portraits" kvp.Key kvp.Value
  
          let emailResponse = summaryResponse.summary |> convertResponseToTally |> sendEmailMessage |> Async.RunSynchronously
  
          0 // return an integer exit code
  
negative.code:     let sendEmailMessage (tally: seq<EmailTally>) = async {
          let base64HeaderValue = sprintf "%s:" swuKey |> Text.Encoding.UTF8.GetBytes |> Convert.ToBase64String
          let header = Http.Headers.AuthenticationHeaderValue ("Basic", base64HeaderValue)
          let url = "https://api.sendwithus.com/api/v1/send"
          let date = DateTime.Now.ToString ("MMM dd, yyyy")
          let message = 
              {
  