Compose T1 with all

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

We get the results:

(T1 (T1 ("abaBABAAbbbAAbbb" . "AAbbb"))) 
(T1 (T2 ("babABAAAbbb" . "AAbbb"))) 
(T1 (T3 ("aabaBABAAAbbb" . "AAbbb"))) 
(T1 (T4 ("abaBABAAbbbabaBAB" . "AAbbbabaBAB"))) 
(T1 (T5 ("abaBABBBBaa" . "BBBaa"))) 
(T1 (T6 ("abaBABAbbbA" . "AbbbA"))) 
(T1 (T7 ("babaBABBAAbbb" . "AAbbb"))) 
(T1 (T8 ("abaBAAAbb" . "bAAbb"))) 
(T1 (T9 ("baBABAbbb" . "AAbbb"))) 
(T1 (T10 ("abaBABAAAbbba" . "AAAbbba"))) 
(T1 (T11 ("BabaBAAAbbb" . "AAbbb"))) 
(T1 (T12 ("abaBABBAAbbbb" . "BAAbbbb")))