#!/usr/bin/perl  -l
sub output { print map "(".")"x$_, split // }

output $_ = 1x shift;
output while s/([1-9])(0*)([1-9])$/($1-1).($3-length($2)+1).1x length($2)/e;