#!/usr/bin/perl -n
($d,$t,$valid,$y,$d,$x,$d)=split(',',$_);
if ($valid=~m/A/ ) {
   if ($y<4558.){
        $y=$y-4500;
        $x=$x-1400;
#       printf("$t $y $x\n");
       printf("%8f\t%8f\n",$x,$y);
   }
}
