with System;

package Blocks is

   SZ : Integer := 15;

   procedure Do_Nothing (A : System.Address);

end;