Nice one John - I miss the old 'challenge' style academic threads which focussed more on fundamental programming technique and your post reminded me of them. :-)
FWIW, you could omit one level of nesting from your code to achieve the same result, i.e.:Code - Auto/Visual Lisp: [Select]