#define convert_to_small var str, i; str = argument0+"0" i = 1 if string_digits(argument0) = "" { do { if string_char_at(str,i) = string_char_at(str,i+1) { var ii; ii = i do {ii += 1} until !(string_char_at(str,i) = string_char_at(str,ii)) str = string_replace(str,string_copy(str,i,ii-i),string(ii-i)+string_char_at(str,i)) i += string_length(string(ii-i)) } i += 1 } until i = string_length(str) return string_copy(str,1,string_length(str)-1) } else return (argument0) #define convert_to_big var str, retstr, i; str = argument0 retstr = "" i = 1 do { if string_digits(string_char_at(str,i)) = "" { if i = 1 { retstr += string_char_at(str,1) str = string_delete(str,1,1) i = 0 } else { repeat real(string_copy(str,1,i-1)) {retstr += string_char_at(str,i)} str = string_delete(str,1,i) i = 0 } } i += 1 } until str = "" return retstr