mk :: ByteString -> TI
mk xs = TI bs (map toLower bs)
    where bs = clean xs
mk :: ByteString -> TI
mk xs = TI bs (map toLower bs)
    where bs = clean xs
mk xs = TI bs (map toLower bs)
    where bs = clean xs