if(defined($o)) {
    $o=substr(pack("N",$o | ($t{$string}<<12)),1,3);
    print F2 $o; undef $o;
   } else {
    $o=$t{$string};
   }