import qualified Data.Map as Map

phoneBook :: Map.Map String String
phoneBook = Map.fromList $
	[("betty", "555-2938")
	,("bonnie", "452-2928")
	,("patsy", "493-2928")
	,("lucille", "205-2928")
	,("wendy", "939-8282")
	,("penny", "853-2492")
	]
