traceRenderM :: Pretty a => a -> ScpM ()
--traceRenderM x mx = fmap length history >>= \indent -> traceRender (nest indent (pPrint x)) mx
traceRenderM x = traceRender (pPrint x) (return ())
traceRenderM :: Pretty a => a -> ScpM ()
traceRenderM x = traceRender (pPrint x) (return ())
traceRenderM x = traceRender (pPrint x) (return ())