;(mod (string)
;    (defun split (input)
;        (if (> (strlen input) 1)
;            (c
;                (split (substr input 0 (/ (strlen input) 2)))
;                (split (substr input (/ (strlen input) 2) (strlen input))))
;            input)
;    )
;    (split string)
;)

(a (q 2 2 (c 2 (c 5 (q)))) (c (q 2 (i (> (strlen 5) (q . 1)) (q 4 (a 2 (c 2 (c (substr 5 (q) (/ (strlen 5) (q . 2))) (q)))) (a 2 (c 2 (c (substr 5 (/ (strlen 5) (q . 2)) (strlen 5)) (q))))) (q . 5)) 1) 1))