#! perl -nwa
BEGIN{$last=-3}
$a=($F[0]-$last)/2;
$b=$F[1];
#print "$a $F[1]\n";
# amin is 1, bmin is 2
#amax,bmax is 70-ish
$a+=31;
$b+=31;
print pack("CC",$a,$b);
$last=$F[0];
