1module Graph where
2
3 countryLookUp :: String -> Graph -> Maybe Int
4 countryLookUp country graph = indexOf country graph where
5
6 indexOf :: String -> Graph -> Maybe Int
7 indexOf _ Empty = Nothing
8