Function compress

pub fn compress<R: Read, W: Write>(reader: &mut R, writer: &mut W) -> Result<()>