decodeCFile ti_file     = do str <- Data.ByteString.Lazy.readFile ti_file
                             return(decode(decompress str)) 
decodeCFile ti_file     = do str <- Data.ByteString.Lazy.readFile ti_file
                             return(decode(decompress str)) 
decodeCFile ti_file     = do str <- Data.ByteString.Lazy.readFile ti_file
                             return(decode(decompress str)) 