pprStage :: MonadIO m => String -> Exp -> m Exp
pprStage desc e =
    if False
    then do pprIO $ nest 4 $ text desc </> line </> ppr e
            return e
    else return e
pprStage :: MonadIO m => String -> Exp -> m Exp
pprStage desc e =
    if False
    then do pprIO $ nest 4 $ text desc </> line </> ppr e
            return e
    else return e
pprStage desc e =
    if False
    then do pprIO $ nest 4 $ text desc </> line </> ppr e
            return e
    else return e