procedure A (B : Integer; C, D, E : access all Pouet) renames B;
