module Main where

import Lib
import Rainbow
import qualified Data.ByteString as BS

myChunks :: [Chunk String]
myChunks = [ chunk "This is Red" & fore red, chunk "\n",
             chunk "And Violettes are Blue" & fore blue, chunk "\n" ]

myPrintedChunks :: IO ()
myPrintedChunks = mapM_ BS.putStr
                . chunksToByteStrings toByteStringsColors256
                $ myChunks

main :: IO ()
main = do  putStrLn "we will play with Rainbow package ant then call some func from our Lib."
	   myPrintedChunks
           someFunc