anchor.diff:              else
                   RunResult.NoNeedToRemind
           | None -> RunResult.TicketNotFound
  -    printfn "Run result: %A" result
  +    log (sprintf "Run result: %A" result)
   
  -let Run (timer: TimerInfo) =
  -    RunImpl ()+let Run (timer: TimerInfo, log: TraceWriter) =
  +    RunImpl log.Info
positive.code:     open System.IO
      open System.Net
      open System.Net.Mail
      let sendEmail (emailUsername:string) (emailPassword:string) fromAddress toAddress subject body =
          use msg = new MailMessage(fromAddress, toAddress, subject, body)     
          use client = new SmtpClient("smtp.gmail.com", 587)
          client.Credentials <- new NetworkCredential(emailUsername, emailPassword)
          client.EnableSsl <- true
          client.Send msg
  
negative.code: 
  type RunResult = | TicketNotFound | NoNeedToRemind | ReminderSent 
  
  let RunImpl (log:string -> unit) =
      let getConfig = Config.getValue ".secrets"
      let sendEmail = 
          Email.sendEmail 
                  (getConfig "SMTP_HOST")
                  (getConfig "SMTP_USERNAME") 
                  (getConfig "SMTP_PASSWORD") 
                  (getConfig "SOURCE_EMAIL") 
                  (getConfig "TARGET_EMAIL")
      let format (d:DateTime) = d.ToString ("dd.MM.yyyy (dddd)")
      let user = Kkm.createUserInfo (getConfig "USER_ID") (getConfig "CARD_NUMBER")
      let ticket = Kkm.downloadTicketInformation user
  