print  "\n $pattern,$Orig_gz[0],$Orig_gz[1],$Orig_gz[1],$TT1[0]->[0],$TT1[0]->[1],$Orig[0],$Orig[1],$Orig[1],TRUE\n";
print  "\t \t \t \t \t $TT1[1]->[0],$TT1[1]->[1] \n";