なんか疲れたので #xyzzy で三三七拍子してみた

gistfile1.lisp

(defun 337-ding (&optional (rhythm '(nil nil t nil nil t nil nil nil nil nil nil)))
  (labels ((backding ()
             (ding)
             (when rhythm
               (start-timer (if (car rhythm) 0.6 0.3)
                            #'backding t)
               (setf rhythm (cdr rhythm)))))
    (start-timer 1 #'backding t)))
=> 337-ding

(337-ding '(nil nil t nil nil t nil nil nil nil nil nil))
=> t