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