64
Histogram : Map;
...
declare
  Position : Cursor;
  Inserted : Boolean; 
begin
  Histogram.Insert
   (Key      => Word,
    New_Item => 0,        --yes: try to insert 0
    Position => Position,
    Inserted => Inserted); --result doesn’t matter
  Update_Element (C, Increment_Count’Access);
end;