[Tutor] format currency

[Norman Khine]

Hello,
I have this code, is there a better way to get the desired output.

http://paste.lisp.org/display/72966

Thanks