;(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))