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