var i;
begin
  i := 1024;
  while i > 0 do
  begin
    ! i;
    i := i / 2
  end;
end.