open System
open System.Text.RegularExpressions

let readLine() = Console.ReadLine()

type Code =
| Alfa
| Bravo
| Charlie
| Delta
| Echo
| Foxtrot
| Golf
| Hotel
| India
| Juliet
| Kilo
| Lima
| Mike
| November
| Oscar
| Papa
| Quebec
| Romeo
| Sierra
| Tango
| Uniform
| Victor
| Whiskey
| Xray
| Yankee
| Zulu
| One
| Two
| Three
| Four
| Five
| Six
| Seven
| Eight
| Nine
| Zero
| Invalid

let toMilitary (x:string) =
    match x.ToLower() with
    | "a" -> Alfa
    | "b" -> Bravo
    | "c" -> Charlie
    | "d" -> Delta
    | "e" -> Echo
    | "f" -> Foxtrot
    | "g" -> Golf
    | "h" -> Hotel
    | "i" -> India
    | "j" -> Juliet
    | "k" -> Kilo
    | "l" -> Lima
    | "m" -> Mike
    | "n" -> November
    | "o" -> Oscar
    | "p" -> Papa
    | "q" -> Quebec
    | "r" -> Romeo
    | "s" -> Sierra
    | "t" -> Tango
    | "u" -> Uniform
    | "v" -> Victor
    | "w" -> Whiskey
    | "x" -> Xray
    | "y" -> Yankee
    | "z" -> Zulu
    | "1" -> One
    | "2" -> Two
    | "3" -> Three
    | "4" -> Four
    | "5" -> Five
    | "6" -> Six
    | "7" -> Seven
    | "8" -> Eight
    | "9" -> Nine
    | "0" -> Zero
    | _ -> Invalid

let toGreek x =
    match toMilitary x with
    | Alfa        -> "Alfa"
    | Bravo       -> "Bravo"
    | Charlie     -> "Charlie"
    | Delta       -> "Delta"
    | Echo        -> "Echo"
    | Foxtrot     -> "Foxtrot"
    | Golf        -> "Golf"
    | Hotel       -> "Hotel"
    | India       -> "India"
    | Juliet      -> "Juliet"
    | Kilo        -> "Kilo"
    | Lima        -> "Lima"
    | Mike        -> "Mike"
    | November    -> "November"
    | Oscar       -> "Oscar"
    | Papa        -> "Papa"
    | Quebec      -> "Quebec"
    | Romeo       -> "Romeo"
    | Sierra      -> "Sierra"
    | Tango       -> "Tango"
    | Uniform     -> "Uniform"
    | Victor      -> "Victor"
    | Whiskey     -> "Whiskey"
    | Xray        -> "Xray"
    | Yankee      -> "Yankee"
    | Zulu        -> "Zulu"
    | One         -> "One"
    | Two         -> "Two"
    | Three       -> "Three"
    | Four        -> "Four"
    | Five        -> "Five"
    | Six         -> "Six"
    | Seven       -> "Seven"
    | Eight       -> "Eight"
    | Nine        -> "Nine"
    | Zero        -> "Zero"
    | _ -> failwith "Invalid string"

printf "Name: "
let name = readLine()

printfn "---------------"
name.ToCharArray()
    |> Seq.iter(fun z -> printfn "%s" <| toGreek(string z))

Console.ReadKey() |> ignore