Det kan vara så att jag blev lite ivrig efter dagens Perlande...

PrintCompile.hs

import Control.Monad
import Data.Char
import Data.List

color s c = "\x1b[38;5;" ++ show c ++ "m" ++ s ++ "\x1b[0m"

txt = map chr $ foldr (\a (b:bs) -> (a+b):(b:bs)) [32] [(-12),2,(-3),7,(-3),7,69]

main = sequence_ $ cycle $ map (\c -> putStr $ color txt c) [0..256]

{- 
 - Hint: Pejsta det här i skalet om du hamnar på en färg du inte trivs med:
   echo -e "\e[0m"
 -}