(defstruct (result (:print-function result-print))
  origCosts
  origValues
  run
  endCosts
  endValues)

(defun result-print (r s d)
  (format s "Result: Type:~A, OValues: ~A, OCost: ~A, FValue: ~A, FCost: ~A"
	  (result-run r)
	  (result-origValues r)
	  (result-origCosts r)
	  (result-endValues r)
	  (result-endCosts r)))