program hist is

type
     ttok   = record 
		    count: integer;	(* repeat count *)
		    str: string		(* token name *)
	      endrec;
var
     tok:     array(1..256) of ttok;



(*-------------------- simple string routines --------------------*)


(* strnull: make a null string *)

begin
    tok(1).count := 0
end.