let gunzip gz =     fwd (Input.gunzip (bwd gz))