open(F0, $ARGV[0]);

while(<F0>) {
#      /\t+/g;
#       s/\t+/9/g;
      print  $-[0], " ",$-[1], " ", $-[2], "\n" ;
      print  $+[0], " ",$+[1], " ", $+[2], "\n" ;
}
close F0;