{ %NORUN}
program tw25077;

TYPE AnyName = TYPE PROCEDURE (A : INTEGER);

begin
end.