Jenga Throw 'N Go Dice

JengaDice.hs

import System.Random
import Rainbow
import Data.Maybe (fromMaybe)
import qualified Data.Map.Lazy as Map

main :: IO ()
main = do
  roll <- getStdRandom (randomR (0,5))
  mapM_ putColorText (replicate 4 roll)
  input <- getLine
  case input of
    "1" -> putStrLn "Goodbye!"
    _   -> main
  where
    putColorText :: Int -> IO ()
    putColorText roll = putChunkLn $ chunk (replicate 8 ' ') & back (fromMaybe white (Map.lookup roll colors))
    colors :: Map.Map Int Radiant
    colors =
      Map.fromList [ (0, yellow)
                   , (1, brightYellow)
                   , (2, blue)
                   , (3, red)
                   , (4, green)
                   , (5, magenta) ]