runCodeGen :: CodeGen a -> FunctionGen a
runCodeGen (CodeGen cg) = runReaderT cg (CGS [])
runCodeGen :: CodeGen a -> FunctionGen a
runCodeGen (CodeGen cg) = runReaderT cg (CGS [])
runCodeGen (CodeGen cg) = runReaderT cg (CGS [])