main :: IO ()
main = do
    phones_text <- readFile "phones.txt"
    let phones_num = read phones_text :: [[[Int]]]
    let phones = map (map (map toEnum)) phones_num :: [[[Char]]]
    print phones