prog2 a1 exception when neces