> module Main where
> import System

> main :: IO ()
> main = do
>        args <- getArgs 
>        cmain args
>        return ()

> cmain [col,text] = putStrLn $ "\x1b[" ++ col ++ "m" ++ text ++ "\x1b[0m"
> cmain _          = error "usage: colecho <color> <text>"


