Compose T3 with all

(dolist (x '(t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12))
   (print (list 't3 (list x (t3 (funcall x r))))))

We get the results:

(T3 (T1 ("aabaBABAAbbbA" . "AAbbb"))) 
(T3 (T2 ("ababABAA" . "AAbbb"))) 
(T3 (T3 ("aaabaBABAA" . "AAbbb"))) 
(T3 (T4 ("aabaBABA" . "AAbbbabaBAB"))) 
(T3 (T5 ("aabaBABA" . "BBBaa"))) 
(T3 (T6 ("aabaBABA" . "AbbbA"))) 
(T3 (T7 ("ababaBABBA" . "AAbbb"))) 
(T3 (T8 ("aabaBABA" . "bAAbb"))) 
(T3 (T9 ("abaBAB" . "AAbbb"))) 
(T3 (T10 ("aabaBABA" . "AAAbbba"))) 
(T3 (T11 ("aBabaBAA" . "AAbbb"))) 
(T3 (T12 ("aabaBABA" . "BAAbbbb")))