Compose T4 with all

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

We get the results:

(T4 (T1 ("abaBABAAbbb" . "AAbbbabaBABAAbbb"))) 
(T4 (T2 ("babABA" . "AAbbbbabABA"))) 
(T4 (T3 ("aabaBABA" . "AAbbbaabaBABA"))) 
(T4 (T4 ("abaBAB" . "AAbbbabaBABabaBAB"))) 
(T4 (T5 ("abaBAB" . "BBBaaabaBAB"))) 
(T4 (T6 ("abaBAB" . "AbbbbaBAB"))) 
(T4 (T7 ("babaBABB" . "AAbbbbabaBABB"))) 
(T4 (T8 ("abaBAB" . "bAAbbabaBAB"))) 
(T4 (T9 ("baBABa" . "AAbbbbaBABa"))) 
(T4 (T10 ("abaBAB" . "AAAbbbaabaBAB"))) 
(T4 (T11 ("BabaBA" . "AAbbabaBA"))) 
(T4 (T12 ("abaBAB" . "BAAbbbbabaBAB")))