Quick bit of fun inspired by https://twitter.com/mtnygard/status/957668346933207044

RadioCode.hs

module RadioCode where

import Control.Arrow
import Data.Char
import Data.List
import Data.Maybe

icao :: [(Char, String)]
icao =
    (head &&& delete ',')
    <$> words "Alfa, Bravo, Charlie, Delta, Echo, Foxtrot, Golf, Hotel, India, Juliett, Kilo, Lima, Mike, November, Oscar, Papa, Quebec, Romeo, Sierra, Tango, Uniform, Victor, Whiskey, X-ray, Yankee, Zulu"

radioCode :: String -> String
radioCode = unwords . catMaybes . fmap ((`lookup` icao) . toUpper)

message :: String
message = radioCode "If you can read this"