誰か手伝ってくれ～～～～～～～～

bbop.hs

import System.Random

bbop :: RandomGen g => Int -> Int -> g -> String
bbop n c gen
	= fmap (\x -> bbops !! x) $ take n $ randomRs (0, length bbops -1) gen where bbops = "ビビドレドオペレショ"


{- ビビッドレッド・オペレーション
   0 1 2 3 4 5 6 7 8 9 1011121314
-}

main = do
	gen <- getStdGen
	putStrLn $ bbop 10 0 gen