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;