;(mod (string)
;    (defun explode (input)
;        (if (> 10 (strlen input))
;             (c input ())
;             (c (substr input 0 9) (explode (substr input 9 (strlen input))))
;         )
;    )
;    (explode string)
;)

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