Flatten syntax tree using hygenic macros

Question

Is it possible to write an R5RS macro that would "flatten" arbitrarily deep syntax tree?
Example:

(flatte