anchor.diff:      open MovescountContrib.Lib.MovescountClient
       open MovescountContrib.Lib.Utils
       open DDay.iCal
  +
  +    let (|Regex|_|) pattern input =
  +        let m = Regex.Match(input, pattern)
  +        if m.Success then Some(List.tail [ for g in m.Groups -> g.Value ])
  +        else None
   
       let getTrainingPlan email password =
           async {
  
positive.code:             return JsonConvert.DeserializeObject<TrainingPlan>(jsonString, settings)
          }
  
      let getTrainingPlanCal email password =
          let plan = (getTrainingPlan email password) |> Async.RunSynchronously
          let iCal = new iCalendar()
  
negative.code: ﻿namespace MovescountContrib.Lib
  
  open System
  open Newtonsoft.Json
  open System.Text.RegularExpressions
  open MovescountContrib.Lib.DataTypes
  