#! /usr/bin/gawk -f
# Last edited on 2025-05-04 19:25:15 by stolfi

# Reads a file with records containing fields COUNT LEXEME. 
# Outputs the data in the format LEXEME(COUNT) LEXEME(COUNT)....

BEGIN { if (wd == "") { wd = 60; } }

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

/./ { 
  w = sprintf("%s(%d)", $2, $1); 
  if (lin == "") 
    { lin = w; }
  else if (length(lin) + length(w) + 1 > wd )
    { print lin; lin = w; }
  else
    { lin = ( lin " " w ); }
}

END { if (lin != "") { print lin; } }