local $/; $i =<>;
 l: $i =~ s/(\d+)\((\D)?(\d+)/\2(\1*\3)\1(/s;
 l: if($i =~ m//s) { goto l; }
 l: $i =~ s/\d+\(.//s;
print($i);