if value.HasValue then ht.Add(key, value.Value)

let nullableOption (value: Nullable<'a>) =
    if value.HasValue then (Some value.Value) else None