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