tail recursion

count-down.lisp

(defun count-down (n)
  (if (= n 0) 
    done 
    (count-down (- n 1))))

(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)

count-down.oz

functor
import
   System(showInfo:Show)
   Boot_Time at 'x-oz://boot/Time'
define
   fun {CountDown N}
      if N = 0 then
         N
      else
         {CountDown (N - 1)}
      end
   end

   for I in 1..10 do
      local
         T0={Boot_Time.getMonotonicTime}
         {Show {CountDown 1000000}}
         T1={Boot_Time.getMonotonicTime}
      in
         {Show (T1-T0) div 1000000}
      end
   end
end