ResetGS;
Tempo = 128
調#(fc)
//------------------------------------------------------------------------------
Function IF_XYZ(Str S, Str x, Str y, Str z){
	Int len = SizeOf(S);
	Str s = MID(S, len, 1);
	For(Int i = len; i > 0; i = i-1){
		s = MID(S, i, 1);
		If(ASC(s)>=ASC({a})&&ASC(s)<=ASC({g})){
			Exit;
		}
	}
	If(s == x){
		Result = S + y;
	}Else{
		Result = S + z;
	}
}

#Repeat = {[ #?1 ]}
#Concatinate = { #?1 #?2 }
//------------------------------------------------------------------------------

TR 1 @12
Str Score = IF_XYZ(IF_XYZ({#Repeat({#Concatinate({#Concatinate({#Repeat({#Concatinate({r },{#Repeat({`e })})})},IF_XYZ({`e },{#Concatinate({`d },{`d })},{r },{#Repeat({`d })}))},{e })})},{#Repeat({a })},IF_XYZ({`e },{`d },{#Concatinate({#Concatinate({r },{r })},{r })},{`g }),{#Concatinate({#Repeat({#Concatinate({`d },{#Concatinate({#Concatinate({`f },{#Repeat({#Concatinate({r },{#Repeat({`e })})})})},{#Concatinate({#Concatinate({r },{a })},{#Concatinate({r },{`e })})})})})},{f })}),{e },{c },{#Concatinate(IF_XYZ({a },{#Concatinate({#Concatinate(IF_XYZ({#Concatinate({r },{`a })},{#Repeat(IF_XYZ({#Concatinate({g },{`a })},{#Concatinate({r },{`e })},{#Repeat({r })},{r }))},{c },{#Concatinate({#Concatinate({#Concatinate({`d },{`a })},{`e })},{r })}),{e })},{c })},{r },{`c }),{#Concatinate({#Concatinate({#Concatinate({#Concatinate({#Concatinate({c },IF_XYZ({r },{`a },{e },{`c }))},{#Concatinate(IF_XYZ({r },{a },{`a },{g }),{`a })})},{d })},{#Repeat({a })})},{a })})})
//------------------------------------------------------------------------------
Print(Score)
TR 1 q90 l8
Score