#!/usr/bin/perl
$n=$ARGV[0];@o=('');for(1..2*$n){my@q;for(@o){$o=()=m/\(/g;$c=()=m/\)/g;push@q,"$_("if $o<$n;push@q,"$_)"if$c<$o;}@o=@q;}print"$_\n"for@o;