dagger

dagger.lisp

(set-macro-character #\DOUBLE_DAGGER
  (get-macro-character #\) ))

(set-macro-character #\DAGGER
 (lambda (stream char) 
   (declare (ignore char)) 
    (read-delimited-list #\DOUBLE_DAGGER stream t)))


† defun fact † n‡ 
  † if † zerop n‡  
      1 
      † *  n† fact † 1- n‡ ‡ ‡ ‡ ‡

† print † fact 5‡‡