For the heck of it, I though I'd try it in scheme with pattern matching... (let ((x '((((5 4 3 2 1) 6) 7) 8 9))) (syntax->datum (syntax-case x ()

For the heck of it, I though I'd try it in scheme with pattern matching... (let ((x '((((5 4 3 2 1) 6) 7) 8 9))) (syntax->datum (syntax-case x () ((((_ p) _) _ ...) #'p))))