# Unit Test: screen.001

$Id: screen.001.xml 4056 2004-11-23 13:28:50Z nwalsh $
Norman Walsh

    ndw@nwalsh.com

    (let loopvar ((count 1))
      (if (> count 10)
        #t
        (loopvar (+ count 1))))