package Zoom.Scan_Sets is type Scan_Set is private; procedure Set (This : in out Scan_Set; Key : String; Value : String); procedure Get (This : Scan_Set; Key : String; Value : out String); private type Scan_Set is null record; end Zoom.Scan_Sets;