;(mod (str N M)
;    (defun iter (V N)
;        (if (= N 0) V (iter (concat V V) (- N 1)))
;    )
;    (defun shift_c (str i)
;        (if (> i 0)
;            (c str (shift_c (lsh str 8) (- i 1)))
;            ()
;        )
;    )
;    (shift_c (iter str N) M)
;)

(a (q 2 6 (c 2 (c (a 4 (c 2 (c 5 (c 11 (q))))) (c 23 (q))))) (c (q (a (i (= 11 (q)) (q . 5) (q 2 4 (c 2 (c (concat 5 5) (c (- 11 (q . 1)) (q)))))) 1) 2 (i (> 11 (q)) (q 4 5 (a 6 (c 2 (c (lsh 5 (q . 8)) (c (- 11 (q . 1)) (q)))))) (q 1)) 1) 1))