;;;-*- Mode:LISP; Package:BENCH-STAK; Base:8 -*-
;;; From the "Dick Gabriel" Benchmark Series.
;;; Enhancements (C) Copyright 1983, Lisp Machine, Inc.

;;;BEGIN
;;;STAK
(declare 
 #-LISPM (FIXNUM (tak fixnum fixnum fixnum))
 #-LISPM (FIXNUM (stak))
 (special x y z)
 #-LISPM (FIXNUM x y z))

(defun tak (x y z)
  (stak))

(defun stak ()
       (cond ((not (< y x))	;xy
	      z)
	     (t (let ((x (let ((x (1- x))
			       (y y)
			       (z z))
			      (stak)))
		      (y (let ((x (1- y))
			       (y z)
			       (z x))
			      (stak)))
		      (z (let ((x (1- z))
			       (y x)
			       (z y))
			      (stak))))
		     (stak)))))

;(include "timer.lsp")
(timer timit (tak 18. 12. 6.))
;;;END