More generally, this kind of thing would be done with a formatting library. I believe it remains for one tuned for Gambit yet to come into existence - there's a SchemeFmt library, something like this, out there that's cross-scheme, perhaps it could be adapted. Someone on the ML by the name Tanya I believe got it running on Gambit.