(define-macro (onbeat? b of t . f) (if (null? f) `(if (= (modulo beat ,of) (- ,b 1)) ,t) `(if (= (modulo beat ,of) (- ,b 1)) ,t ,(car f))))