aeiou.hs

{-# LANGUAGE GHC2021 #-}
module Main where

import Data.Char
import System.Environment
import System.Random.Shuffle

main :: IO ()
main = do
    { args <- getArgs
    ; case args of
        []                  -> putStrLn . unwords . map (:[]) =<< shuffleM "アイウエオ"
        s:_ | all isDigit s -> putStrLn . unwords . map show  =<< shuffleM [1 .. read @Int s]
            | otherwise     -> putStrLn . unwords . map (:[]) =<< shuffleM s
    }