[plt-scheme] struct printer

Hi,

I'd like to control the way structures print (a la lisp), and also 
insert a write
hook for objects in Meroon. After fishing around, it seems to me the
easiest way to do this is by introducing hooks into pretty.ss, and 
setting up a print
method as a structure property --  is  there some better (ie, already 
done) way?

thanks,

-- eliot