Trump vs The World: https://www.youtube.com/watch?v=296-WjM90jg


@aartaka No need to wait for a new standard:
(set-dispatch-macro-character
#\# #\;
(lambda (stream char n)
(loop repeat (or n 1)
do (read stream :recursive-p t))
(values)))
Now #; skips one s-expression; #2; skips two, #3; skips three, and so on...