(use-package :OLI)

(defun testen ()
	(setq Falleins '(((146.0407689249987,-44.158689424530166,0.0)
	  (102082.92757416199,-5991.0410197040501,16105.000000010101)
	  146.67127730478816)
	 ((250.94083219100139,-39.57865375117035,0.0)
	  (102187.827637428,-5986.4609840306903,16105.000000010101)
	  247.90597639272184)
	 ((1460.7164600760007,11.751754050299496,0.0)
	  (103397.603265313,-5935.1305762292204,16105.000000010101)
	  1454.5054190773963)
	 ((1565.6524969130114,15.416201204070603,0.0)
	  (103502.53930215001,-5931.4661290754493,16105.000000010101)
	  1559.4697144050642)
	 ((2768.6417135750089,73.402897084150027,0.0)
	  (104705.528518812,-5873.4794331953699,16105.000000010101)
	  2763.3534940136897)
	 ((2873.5417768410116,77.982932757509843,0.0)
	  (104810.42858207801,-5868.8993975220101,16105.000000010101)
	  2868.3386001260833)
	 ((4078.8827539040067,142.53872045374919,0.0)
	  (106015.769559141,-5804.3436098257707,16105.000000010101)
	  4075.1109013436003)
	 ((4183.6869077390002,148.94881710491063,0.0)
	  (106120.57371297599,-5797.9335131746093,16105.000000010101)
	  4180.0758647484918)
	 ((7873.8702580200043,9.7442208109987405,0.0)
	  (109810.757063257,-5937.1381094685212,16105.000000010101)
	  7867.6195199568583)
	 ((7958.8170424290001,-51.973230679710468,0.0)
	  (109895.70384766599,-5998.8555609592304,16105.000000010101)
	  7952.7321042284957)
	 ((8590.233709297012,-966.09930899488972,0.0)
	  (110527.12051453401,-6912.9816392744096,16105.000000010101)
	  8638.2006924659509)
	 ((8617.4097090319992,-1067.521520755241,0.0)
	  (110554.29651426899,-7014.4038510347609,16105.000000010101)
	  8677.1027795864247)
	 ((8823.7971949920029,-2035.0657138887091,0.0)
	  (110760.684000229,-7981.948044168229,16105.000000010101)
	  9049.3958799376469)
	 ((8840.2228138210048,-2138.772989651201,0.0)
	  (110777.109619058,-8085.6553199307209,16105.000000010101)
	  9089.2471414139072)
	 ((6701.182965636006,307.9656439588307,0.0)
	  (108638.069770873,-5638.9166863206892,16105.000000010101)
	  6701.9941188804069)
	 ((6806.1190024730022,311.63009111258907,0.0)
	  (108743.00580771,-5635.2522391669308,16105.000000010101)
	  6806.9878388580328)
	 ((5386.001188055001,219.90063647329953,0.0)
	  (107322.887993292,-5726.9816938062204,16105.000000010101)
	  5384.2266311072744)
	 ((5490.7454133319989,227.22506621643879,0.0)
	  (107427.63221856899,-5719.6572640630811,16105.000000010101)
	  5489.1833019670667)))

	(setq Fallzwei '(((146.0407689249987,-44.158689424530166,0.0)
	  (102082.92757416199,-5991.0410197040501,16105.000000010101)
	  146.67127730478816)
	 ((250.94083219100139,-39.57865375117035,0.0)
	  (102187.827637428,-5986.4609840306903,16105.000000010101)
	  247.90597639272184)
	 ((1460.7164600760007,11.751754050299496,0.0)
	  (103397.603265313,-5935.1305762292204,16105.000000010101)
	  1454.5054190773963)
	 ((1565.6524969130114,15.416201204070603,0.0)
	  (103502.53930215001,-5931.4661290754493,16105.000000010101)
	  1559.4697144050642)
	 ((2768.6417135750089,73.402897084150027,0.0)
	  (104705.528518812,-5873.4794331953699,16105.000000010101)
	  2763.3534940136897)
	 ((2873.5417768410116,77.982932757509843,0.0)
	  (104810.42858207801,-5868.8993975220101,16105.000000010101)
	  2868.3386001260833)
	 ((4078.8827539040067,142.53872045374919,0.0)
	  (106015.769559141,-5804.3436098257707,16105.000000010101)
	  4075.1109013436003)
	 ((4183.6869077390002,148.94881710491063,0.0)
	  (106120.57371297599,-5797.9335131746093,16105.000000010101)
	  4180.0758647484918)
	 ((7873.8702580200043,9.7442208109987405,0.0)
	  (109810.757063257,-5937.1381094685212,16105.000000010101)
	  7867.6195199568583)
	 ((7958.8170424290001,-51.973230679710468,0.0)
	  (109895.70384766599,-5998.8555609592304,16105.000000010101)
	  7952.7321042284957)
	 ((8590.233709297012,-966.09930899488972,0.0)
	  (110527.12051453401,-6912.9816392744096,16105.000000010101)
	  8638.2006924659509)
	 ((8617.4097090319992,-1067.521520755241,0.0)
	  (110554.29651426899,-7014.4038510347609,16105.000000010101)
	  8677.1027795864247)
	 ((8823.7971949920029,-2035.0657138887091,0.0)
	  (110760.684000229,-7981.948044168229,16105.000000010101)
	  9049.3958799376469)
	 ((8840.2228138210048,-2138.772989651201,0.0)
	  (110777.109619058,-8085.6553199307209,16105.000000010101)
	  9089.2471414139072)
	 ((6701.182965636006,307.9656439588307,0.0)
	  (108638.069770873,-5638.9166863206892,16105.000000010101)
	  6701.9941188804069)
	 ((6806.1190024730022,311.63009111258907,0.0)
	  (108743.00580771,-5635.2522391669308,16105.000000010101)
	  6806.9878388580328)
	 ((5386.001188055001,219.90063647329953,0.0)
	  (107322.887993292,-5726.9816938062204,16105.000000010101)
	  5384.2266311072744)
	 ((5490.7454133319989,227.22506621643879,0.0)
	  (107427.63221856899,-5719.6572640630811,16105.000000010101)
	  5489.1833019670667)))
	  
	  (display (format nil "Länge Fall 1: ~a "(length Falleins)))
	  (display (format nil "Länge Fall 1: ~a "(length Fallzwei)))
	  
	  (setq Falldrei (copy-list Falleins))
	  (setq Fallvier (copy-list Fallzwei))

	  (sort Falldrei #'< :key #'third)
	  (sort Fallvier #'> :key #'third)
	  
	  (display (format nil "Länge Fall 1: ~a "(length Falldrei)))
	  (display (format nil "Länge Fall 1: ~a "(length Fallvier)))
)