class procedure p1 := exit;
begin 
end.