wordNumber :: Int -> String
wordNumber n =
  intercalate "-" $ map digitToWord $ digits n
wordNumber :: Int -> String
wordNumber n =
  intercalate "-" $ map digitToWord $ digits n
wordNumber n =
  intercalate "-" $ map digitToWord $ digits n