program main
  implicit none
  integer::N,i
  integer::xl,xh,yl,yh
  read *,N
  do i=1,N
     read *,xl,xh,yl,yh
     print '("SELECT count(*) FROM point WHERE ",i0," <= x AND x <= ",i0," &
          AND ",i0," <= y AND ",i0,"<= y;")',xl,xh,yl,yh
  end do
contains
  subroutine aprinter(array)
    integer*8::array(:)
    character*32::cformat='(i0,     (1x,i0))'
    write(cformat(5:9),'(i0)'),size(array)
    write(*,cformat) array
  end subroutine aprinter
end program main