module Color where

red :: String -> String
red s = "\x001b[31m" ++ s ++ "\x001b[0m"

green :: String -> String
green s = "\x001b[32m" ++ s ++ "\x001b[0m"

yellow :: String -> String
yellow s = "\x001b[33m" ++ s ++ "\x001b[0m"

blue :: String -> String
blue s = "\x001b[34m" ++ s ++ "\x001b[0m"