anchor.diff:      |> Array.ofSeq
   
     do! Cloud.Logf "Calculating daily measurements"  
  -  let daily = measurements |> Array.mapi (fun idx (loc, date, group) ->
  -    { DailyMeasurement.ID = idx; Location = loc; Day = date.Day; Month = date.Month; Year = date.Year
  +  let daily = measurements |> Array.mapi (fun idx ((reg, loc, rd), date, group) ->
  +    { DailyMeasurement.ID = idx; Location = loc; Region = reg; Road = rd
  +      Day = date.Day; Month = date.Month; Year = date.Year
         PedalCycles = group |> Seq.sumBy (fun r -> defaultArg r.PC 0)
         MotorVehicles = group |> Seq.sumBy (fun r -> defaultArg r.AMV 0) })
     
  
positive.code:   let csv = Traffic.Load(blob.OpenRead())
  
    do! Cloud.Logf "Reading and parsing measurements"  
    let measurements = 
      csv.Rows
      |> Seq.chunkWhile (fun r1 r2 -> r1.CP = r2.CP)
  
negative.code:       let r = chunk.[0]
        match r.``S Ref E``, r.``S Ref N``, r.``Region Name (GO)``, r.``ONS LA Name``, r.Road with
        | Some re, Some rn, Some reg, Some name, Some road ->   
            let road = 
              match defaultArg r.``A-Junction`` "", defaultArg r.``B-Junction`` "" with
              | "", "" -> road
              | (j, "") | ("", j) -> sprintf "%s (%s)" road j
              | aj, bj -> sprintf "%s (%s - %s)" road aj bj
            let long, lat = geoConv (float re) (float rn)
            let loc = getRegion reg, getLocation name, { Road.ID = idx; Road = road; Latitude = lat; Longitude = long }
            chunk 
            |> Seq.filter (fun r -> r.DCount.IsSome)
            |> Seq.groupBy (fun r -> r.DCount.Value)
  