;(mod (value iter)
; (defun shift (value iter)
; (if (> iter 1) (lsh (shift value (- iter 1)) 65535) value)
; )
; (shift value iter)
;)
(a (q 2 2 (c 2 (c 5 (c 11 (q))))) (c (q 2 (i (> 11 (q . 1)) (q 23 (a 2 (c 2 (c 5 (c (- 11 (q . 1)) (q))))) (q . 0x00ffff)) (q . 5)) 1) 1))