procedure A is begin A;End;