[plt-scheme] auto respacer?

Hi folks,

DrScheme's "Reindent All" feature is nice, but I would also like a
"Respace All" feature that would take:

  (define(fact n)
    (cond
      [ (zero? n)1]
      [else (* n(fact (- n 1)) )]
    )
  )

and clean it up:

  (define (fact n)
    (cond
      [(zero? n) 1]
      [else (* n (fact (- n 1)))]))

Does such a tool exist?  It seems like a simple enough algorithm to
implement.

Dave

PS  Please reply to me directly since I'm in digest mode.  Thanks.