(defun seheultcontrastset (x y sd)
  (let ((lookup #2A((.0008340000	25	10 )
		    (.0008070000	24	10 )
		    (.0007810000	23	10 )
		    (.0007540000	22	10 )
		    (.0007260000	21	10 )
		    (.0006980000	20	10 )
		    (.0006700000	19	10 )
		    (.0006410000	18	10 )
		    (.0006120000	17	10 )
		    (.0005820000	16	10 )
		    (.0005520000	15	10 )
		    (.0005210000	14	10 )
		    (.0004890000	13	10 )
		    (.0004570000	12	10 )
		    (.0004250000	11	10 )
		    (.0003920000	10	10 )
		    (.0003580000	9	10 )
		    (.0003230000	8	10 )
		    (.0002880000	7	10 )
		    (.0002510000	6	10 )
		    (.0002140000	5	10 )
		    (.0001750000	4	10 )
		    (.0001350000	3	10 )
		    (.0000940000	2	10 )
		    (.0000500000	1	10 )
		    (.0051480000	25	0 )
		    (.0049430000	24	0 )
		    (.0047370000	23	0 )
		    (.0045310000	22	0 )
		    (.0043260000	21	0 )
		    (.0041200000	20	0 )
		    (.0039150000	19	0 )
		    (.0037090000	18	0 )
		    (.0035040000	17	0 )
		    (.0032980000	16	0 )
		    (.0030920000	15	0 )
		    (.0028870000	14	0 )
		    (.0026810000	13	0 )
		    (.0024750000	12	0 )
		    (.0022690000	11	0 )
		    (.0020640000	10	0 )
		    (.0018580000	9	0 )
		    (.0016520000	8	0 )
		    (.0014460000	7	0 )
		    (.0012400000	6	0 )
		    (.0010330000	5	0 )
		    (.0008270000	4	0 )
		    (.0006210000	3	0 )
		    (.0004140000	2	0 )
		    (.0002070000	1	0 )))
	(diff (abs (- x y)))
	(sdvals nil))
    (dotimes (i (- (array-dimension lookup 0) 1))
      (if (= (aref lookup i 1) sd)
	  (setf sdvals (append sdvals 
			       (list (list (aref lookup i 0)
					   (aref lookup i 1) 
					   (aref lookup i 2)))))))
    (if (< diff (first (first sdvals)))
	(progn
	  (format t "You are guilty. Tamper with the evidence to increase distance between x and y by: ~A~%" (- (first (second sdvals)) diff)))
	(progn
	  (format t "You are not guilty. Ensure the prosecution does not decrease distance between x and y by: ~A~%" (- diff (first (first sdvals))))))
    ))