// L-system Base04 by_otophilia

~string = "T";

~dict = [
	"T" -> "DT",
	"D" -> "TD",
	"TDD" -> "TSD",
	"DDT" -> "SDT",
	"DS" -> "DTS"
	];


~replaceMulti = {|str, dict|
	var i=0, nstr, nextPt, fromSt;
	
	nstr = String.new;
	
	{ i < str.size }.while{
		nextPt = nil;
		fromSt = nil;
		
		dict.do{|ass|
			var f;
			f = str.find(ass.key, false, i);
			
			if(nextPt.notNil){
				f !? { if(f <= nextPt){ nextPt = f; fromSt = ass.key } }
			}{
				f !? { nextPt = f; fromSt = ass.key };
			};
		};
		
		if(nextPt.isNil){
			nstr = nstr ++ str[i..];
			i = str.size;
		}{
			if(nextPt - i > 0){nstr = nstr ++ str[i..nextPt-1]};
			nstr = nstr ++ dict.detect{|x| x.key == fromSt}.value;
			i = nextPt + fromSt.size;
		};
	};
	
	nstr;
};

12.do{~string = ~replaceMulti.(~string, ~dict).postln};