module Text.Termcolor (format) where import Lib format :: Format -> String format (Tail input) = input format (Node code f) = "\ESC[0;\ESC[" ++ (show code) ++ "m" ++ (format f) ++ "\ESC[0;"