(eval-when (:compile-toplevel :load-toplevel :execute)
  (defparameter OPT
    #+swank '(optimize (speed 3) (safety 2))
    #-swank '(optimize (speed 3) (safety 0) (debug 0)))
  #+swank (progn (ql:quickload '(:cl-debug-print :fiveam))
                 (shadow :run)
                 (use-package :fiveam)))
#+swank (cl-syntax:use-syntax cl-debug-print:debug-print-syntax)

;; BEGIN_INSERTED_CONTENTS
;; (with-memoizing (:hash-table :test #'equal :key #'cons)
;;   (defun ...))
;; (with-memoizing (:array (10 10 * 10) :initial-element -1 :element-type 'fixnum)
;;   (defun ...))
(defmacro with-memoizing (cache-attribs def-form)
  (let* ((cache-attribs (if (atom cache-attribs) (list cache-attribs) cache-attribs))
         (cache-type (first cache-attribs))
         (dimensions-with-* (when (eql cache-type :array) (second cache-attribs)))
         (dimensions (remove '* dimensions-with-*))
         (rank (length dimensions))
         (rest-attribs (ecase cache-type
                         (:hash-table (cdr cache-attribs))
                         (:array (cddr cache-attribs))))
         (key (prog1 (getf rest-attribs :key) (remf rest-attribs :key)))
         (cache-form (case cache-type
                       (:hash-table `(make-hash-table ,@rest-attribs))
                       (:array `(make-array ',dimensions ,@rest-attribs))))
         (initial-element (when (eql cache-type :array)
                            (assert (member :initial-element rest-attribs))
                            (getf rest-attribs :initial-element))))
    (let ((cache (gensym))
          (value (gensym))
	  (present-p (gensym))
          (name-alias (gensym))
	  (args-lst (gensym))
          (indices (loop repeat rank collect (gensym))))
      (labels ((make-cache-check-form (cache-type args)
                 (case cache-type
                   (:hash-table
                    `(let ((,args-lst (funcall ,(or key #'list) ,@args)))
                       (multiple-value-bind (,value ,present-p)
                           (gethash ,args-lst ,cache)
                         (if ,present-p
                             ,value
                             (setf (gethash ,args-lst ,cache)
                                   (,name-alias ,@args))))))
                   (:array
                    (let ((memoized-args (loop for dimension in dimensions-with-*
                                               for arg in args
                                               unless (eql dimension '*)
                                               collect arg)))
                      (if key
                          `(multiple-value-bind ,indices
                               (funcall ,key ,@memoized-args)
                             (let ((,value (aref ,cache ,@indices)))
                               (if (eql ,initial-element ,value)
                                   (setf (aref ,cache ,@indices)
                                         (,name-alias ,@args))
                                   ,value)))
                          `(let ((,value (aref ,cache ,@memoized-args)))
                             (if (eql ,initial-element ,value)
                                 (setf (aref ,cache ,@memoized-args)
                                       (,name-alias ,@args))
                                 ,value)))))))
               (make-reset-form (cache-type)
                 (case cache-type
                   (:hash-table `(setf ,cache (make-hash-table ,@rest-attribs)))
                   (:array `(prog1 nil
                              (fill (array-storage-vector ,cache) ,initial-element)))))
               (make-reset-name (name)
                 (intern (format nil "RESET-~A" (symbol-name name))))
               (extract-declarations (body)
                 (remove-if-not (lambda (form) (eql 'declare (car form))) body)))
        (ecase (car def-form)
          ((defun)
           (destructuring-bind (_ name args &body body) def-form
             (declare (ignore _))
             `(let ((,cache ,cache-form))
                (defun ,(make-reset-name name) () ,(make-reset-form cache-type))
                (defun ,name ,args
                  (labels ((,name-alias ,args ,@body))
                    (declare (inline ,name-alias))
                    ,@(extract-declarations body)
                    ,(make-cache-check-form cache-type args))))))
          ((nlet)
           (destructuring-bind (_ name bindings &body body) def-form
             (declare (ignore _))
             `(let ((,cache ,cache-form))
                (nlet ,name ,bindings
                      ,(let ((args (mapcar (lambda (x) (if (atom x) x (car x))) bindings)))
                         `(labels ((,name-alias ,args ,@body))
                            (declare (inline ,name-alias))
                            ,@(extract-declarations body)
                            ,(make-cache-check-form cache-type args)))))))
          ((labels flet)
           (destructuring-bind (_ definitions &body labels-body) def-form
             (declare (ignore _))
             (destructuring-bind (name args &body body) (car definitions)
               `(let ((,cache ,cache-form))
                  (,(car def-form)
                   ((,(make-reset-name name) () ,(make-reset-form cache-type))
                    (,name ,args
                           (labels ((,name-alias ,args ,@body))
                             (declare (inline ,name-alias))
                             ,@(extract-declarations body)
                             ,(make-cache-check-form cache-type args)))
                    ,@(cdr definitions))
                   (declare (ignorable #',(make-reset-name name)))
                   ,@labels-body))))))))))

;; (test with-memoizing
;;   (finishes (macroexpand `(with-memoizing (:hash-table :test #'equal)
;;                             (defun add (x y) (+ x y)))))
;;   (finishes (macroexpand `(with-memoizing (:array '(10 10)
;;                                            :element-type 'fixnum
;;                                            :initial-element -1)
;;                             (defun add (x y) (+ x y)))))
;;   (finishes (macroexpand `(with-memoizing (:array '(10 10)
;;                                            :element-type 'fixnum
;;                                            :initial-element -1)
;;                             (labels ((add (x y) (+ x y))
;; 		                     (my-print (x) (print x)))
;; 	                      (add 1 2))))))

(defmacro nlet (name args &body body)
  (labels ((ensure-list (x) (if (listp x) x (list x))))
    (let ((args (mapcar #'ensure-list args)))
      `(labels ((,name ,(mapcar #'car args) ,@body))
         (,name ,@(mapcar #'cadr args))))))

(defmacro split-ints-and-bind (vars string &body body)
  (let ((pos1 (gensym "POS"))
	(pos2 (gensym "POS"))
	(str (gensym "STR")))
    (labels ((expand (vars &optional (init-pos1 t))
	       (if (null vars)
		   body
		   `((let* ((,pos1 ,(if init-pos1 0 `(1+ ,pos2)))
			    (,pos2 (position #\space ,str :start ,pos1 :test #'char=))
			    (,(car vars) (parse-integer ,str :start ,pos1 :end ,pos2)))
		       ,@(expand (cdr vars) nil))))))
      `(let ((,str ,string))
         (declare (string ,str))
	 ,@(expand vars)))))

(defmacro define-int-types (&rest bits)
  `(progn
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "UINT~A" b)) () '(unsigned-byte ,b))) bits)
     ,@(mapcar (lambda (b) `(deftype ,(intern (format nil "INT~A" b)) () '(signed-byte ,b))) bits)))
(define-int-types 2 4 7 8 15 16 31 32 62 63 64)

(defmacro println (obj &optional (stream '*standard-output*))
  `(let ((*read-default-float-format* 'double-float))
     (prog1 (princ ,obj ,stream) (terpri ,stream))))

;; Hauptteil

(declaim (inline bisect-left))
(defun bisect-left (target value &key (start 0) end (test #'<) (key #'identity))
  "TARGET := vector | function
TEST := strict order

Returns the smallest index (or input) i that fulfills TARGET[i] >= VALUE, where
'>=' is the complement of TEST and TARGET is monotonically
non-decreasing (w.r.t. TEST). Returns END if VALUE exceeds TARGET[END-1]. Note
that the range [START, END) is half-open. END must be specified If TARGET is
function"
  (declare (function key test))
  (macrolet ((body (accessor &optional (declaration `(declare)))
               `(if (funcall test (funcall key (,accessor target (- end 1))) value)
                    end
                    (labels ((%bisect-left (l r)
                               ,declaration
                               (let ((mid (floor (+ l r) 2)))
                                 (if (= mid l)
                                     (if (funcall test (funcall key (,accessor target l)) value)
                                         r
                                         l)
                                     (if (funcall test (funcall key (,accessor target mid)) value)
                                         (%bisect-left mid r)
                                         (%bisect-left l mid))))))
                      (%bisect-left start (- end 1))))))
    (etypecase target
      (vector
       (when (null end)
         (setf end (length target)))
       (assert (<= start end))
       (if (= start end)
           end
           (body aref (declare ((integer 0 #.most-positive-fixnum) l r)))))
      (function
       (assert end)
       (assert (<= start end))
       (if (= start end)
           end
           (body funcall))))))

(declaim (inline bisect-right))
(defun bisect-right (target value &key (start 0) end (test #'<) (key #'identity))
  "TARGET := vector | function
TEST := strict order

Returns the smallest index (or input) i that fulfills TARGET[i] > VALUE, where
TARGET is monotonically non-decreasing (w.r.t. TEST). Returns END if VALUE
exceeds TARGET[END-1]. Note that the range [START, END) is half-open. END must
be specified if TARGET is function."
  (declare (function key test))
  (macrolet ((body (accessor &optional (declaration `(declare)))
               `(if (funcall test value (funcall key (,accessor target (- end 1))))
                    (labels ((%bisect-right (l r)
                               ,declaration
                               (let ((mid (floor (+ l r) 2)))
                                 (if (= mid l)
                                     (if (funcall test value (funcall key (,accessor target l)))
                                         l
                                         r)
                                     (if (funcall test value (funcall key (,accessor target mid)))
                                         (%bisect-right l mid)
                                         (%bisect-right mid r))))))
                      
                      (%bisect-right start (- end 1)))
                    end)))
    (etypecase target
      (vector
       (when (null end)
         (setf end (length target)))
       (assert (<= start end))
       (if (= start end)
           end
           (body aref (declare ((integer 0 #.most-positive-fixnum) l r)))))
      (function
       (assert end)
       (assert (<= start end))
       (if (= start end)
           end
           (body funcall))))))

(defun main ()
  (declare #.OPT)
  (let* ((n (read))
         (m (read))
         (q (read))
         (lr-table (make-array m :element-type '(cons uint32 uint32)))
         (src-table (make-array (1+ n) :element-type 'uint32 :initial-element (length lr-table))))
    (declare ((simple-array (cons uint32 uint32) (*)) lr-table)
             (uint32 n m q))
    (dotimes (i m)
      (split-ints-and-bind (l r) (read-line)
        (declare (uint32 l r))
        (setf (aref lr-table i) (cons (- l 1) (- r 1)))))
    (setf lr-table (sort lr-table (lambda (pair1 pair2)
                                    (declare ((cons uint32 uint32) pair1 pair2))
                                    (or (< (car pair1) (car pair2))
                                        (and (= (car pair1) (car pair2))
                                             (< (cdr pair1) (cdr pair2)))))))
    (nlet recurse ((base 0) (l 0))
      (when (< l n)
        (setf (aref src-table l) base)
        (loop for i from base below (length lr-table)
              while (= (car (aref lr-table i)) l)
              finally (return (recurse i (1+ l))))))
    (with-memoizing (:array (501 501) :element-type 'uint32 :initial-element #.(- (expt 2 32) 1))
      (labels ((%dp (x y)
                 (list x y)
                 (if (= x y)
                     (- (bisect-right lr-table y
                                      :start (aref src-table x)
                                      :end (aref src-table (1+ x))
                                      :key #'cdr)
                        (bisect-left lr-table y
                                     :start (aref src-table x)
                                     :end (aref src-table (1+ x))
                                     :key #'cdr))
                     (+ (%dp (1+ x) y)
                        (- (bisect-right lr-table y
                                         :start (aref src-table x)
                                         :end (aref src-table (1+ x))
                                         :key #'cdr)
                           (aref src-table x))))))
        (dotimes (i q)
          (split-ints-and-bind (p q) (read-line)
            (declare (uint32 p q))
            (println (%dp (- p 1) (- q 1)))))))))

#-swank(main)


Measured memory_bytes: 70884