#!perl -pl
use bigint;$a=$b='';$_<<=1;$a.='(',$b='()'x($_%2).')'.$b while$_>>=1;$_=$a.$b||'()'