#!/usr/pkg/bin/perl
# 2421 - 2461
# $! .. $a
# {print $2,$3, "цол╬", 0}
use Jcode;
while (<>) {
  #       123456789 abcdef
#  if (m|^\$[!"#$%&'()\-+,.=/]|) { print; }
#  if (m|^\084\021|) { print; }
  if (m|^[1-9]\d+\s*|) { 
      s/\?/ /g;
      if (/^\s*$/) { next;}
      ($a,$b,$c,$e) = split;
      printf("%-10s %-10s  цол╬    0\n", $b,$c);
      };
  #    2421 -> 8421 -> \
}
__END__
0  13:37   ack -Se /tmp/r_dic/station | ./station.awk | jless > ! station.u
2  13:37   atod -S station.dic < station.u > ! station.dic