#!/usr/bin/perl  -l

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