$00=0;
$x=shift@ARGV;
($_='0'x$x)x=$x;
$t='().('.'.'x--$x.')';
$p='\).\(\.';
$j=q$.$x++$x.'.).(';

1while s.$t.$1($2.g&&($00+=2)&&y)()1)&&($t=~s.$p.$j.||s/./+$&/g&&($p=0));
print grep{++$p&&eval==2and$_=$p.$/}unpack"a$00"x$x,$_;


