An Optimized R5RS Macro Expander