Good idea!

fmask's implementation with syntax coloring:

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

I also have a more extended example usage in an annotation at the bottom.