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