Var : Integer;
Var_Address : Address := Var'Address;