let map_lookup_list key map = if StringMap.mem key map
    then StringMap.find key map
    else []