(define-macro (hold h pos expr) (let* ((localpos (modulo pos 1)) (num (- pos localpos))) `(,h ,num ,expr LC LP LL)))