uses uw11762;

begin
  i:=0;
  p;
  p;
  p;
  p;
  if i<>4 then
   halt(1);
end.