#   print "$c";
    print chr($c);
#   print $out $c;
    print $out chr($c);