let map_lookup key map = if StringMap.mem key map
    then Some(StringMap.find key map)
    else None