Plaster

common-lisp
* (progn (set-macro-character #\( (get-macro-character #\))) (set-macro-character #\) (lambda (stream character) (declare (ignore character)) (read-delimited-list #\( stream t))) t) T * )defun foo )bar baz quux( )let ))fred )+ bar baz((( )* quux fred((( FOO * )foo 42 200 5000( 1210000