#! /usr/bin/gawk -f

# Reads lines with COUNT OTHER... WORD, removes all other fields
# leaving only COUNT and WORD.

BEGIN{
  abort = -1;
}

/^ *([#]|$)/{ print; next; }

/^ *[0-9]+ *[^ ]/{
  n = $1;
  w = $(NF);
  printf "%7d %s\n", n, w;
  next;
}

//{ error(("line " FNR ": bad format «" $0 "»")); }

function error(msg)
{
  printf "%s\n", msg > "/dev/stderr";
  abort = 1; exit 1;
}