#define INLINE_RULE0(new,old)             ;\

    new = old                            ;\

    {-# INLINE [0] new #-}               ;\

    {-# RULES "inline new" new = old #-}

#define INLINE_RULE(new,vars,body)                           ;\

    new vars = body                                         ;\

    {-# INLINE [0] new #-}                                  ;\

    {-# RULES "inline new" forall vars. new vars = body #-}

#define STREAMING0(name, nameC, nameS)                   ;\

    name = nameC                                         ;\

    {-# INLINE [0] name #-}                              ;\

    {-# RULES "unstream name"                             \

      name = unstream (streamConduit nameC nameS)         \

      #-}

#define STREAMING(name, nameC, nameS, vars)                             ;\

    name = nameC                                                        ;\

    {-# INLINE [0] name #-}                                             ;\

    {-# RULES "unstream name" forall vars.                              \

      name vars = unstream (streamConduit (nameC vars) (nameS vars))    \

      #-}