mkColor :: ByteString -> TI
mkColor xs = TI bs (removeColors bs)
    where bs = clean xs
mkColor :: ByteString -> TI
mkColor xs = TI bs (removeColors bs)
    where bs = clean xs
mkColor xs = TI bs (removeColors bs)
    where bs = clean xs