describe :: Integer -> Stringdescribe n = case n of 0 -> "zero" 1 -> "one" 2 -> "an even prime" n -> "the number " ++ show n-- parse country code into country name, returns Nothing if code not recognizedparseCountry :: String -> Maybe StringparseCountry "FI" = Just "Finland"parseCountry "SE" = Just "Sweden"parseCountry _ = NothingflyTo :: String -> StringflyTo countryCode = case parseCountry countryCode of Just country -> "You're flying to " ++ country Nothing -> "You're not flying anywhere"