(define ( -na- the journal)
(if (= choose 2001) #t
(if (= choose 2002) 2002
(if (= choose exit) #f ))))

(define date 000000)

(define (2002 date)
(cond ((= date 01feb02) #t)
#f))

% scheme -load journal.scm

=> exit

=>()