Color Show with random deterministic color sequence

AnsiColorShow.hs

funkyShow :: Show a => a -> String
funkyShow l = "\x1b[" ++ c ++ dig ++ "\x1b[0m"
    where
      c = cols !! (fromEnum (head dig) `mod` lenCols)
      dig = show l

      lenCols = length cols
      cols = ["31;1m", "32;1m", "33;1m", "34;1m", "35;1m", "36;1m"] {-"37;1m", "38;1m", "7m"] -}