parseFacets.fs

  let parseFacets (input:Dictionary<string,obj>) =
    let facets = new Dictionary<string,IDictionary<string,int>>()
    let add k v = facets.Add(k, v)
    let parse k =
      input.[k] 
      :?> IEnumerable<KeyValuePair<string,obj>>
      |> Seq.map (fun kvp -> kvp.Key, kvp.Value :?> int)
      |> Map.ofSeq
      :> IDictionary<string,int>
      |> add k

    input.Keys |> Seq.iter parse
    facets