[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Fri, 03 Oct 2008 23:58:45 +0200
;; Please try:
;; This is a multi player scene. Hence we
;; for i/o].
(let ((title "On The Sinking Ship"))
;; let['s]rec[call] some common sense
(letrec ((chop-head (lambda () (exit 1)))
(definately (lambda (write text)
(write text (current-error-port))))
(for-ever (lambda (do something)
(for-ever do something)))
(leave (lambda () (exit 0)))
(one-hundred-times (lambda (write text)
(do ((count 0 (+ count 1)))
((eqv? count 100) #t)
(sing (lambda (song)
(do ((i 0 (+ 1 i)))
((= i (vector-length song)))
(display (vector-ref song i))
(take-punishment (lambda (sentence)
(definately display this)
(definately display #\newline))
;; now the play:
(print "Open Stage")
(let* ((old-song '#("We shall overco.ome"
"we shall overco.ome"
"we shall overcome"
(display "We are afraid, we can't help you anymore.
Thanks for paying your membership fee.
(for-ever sing old-song)))))
(display "Shut up!\n")
(regie (make-mutex 'seat)))
(print "The unions enters the scene.")
(print "Note: the boss's window is open!")
(print "Now let's watch what happens.")
(take-punishment "We better dealt with bad file descriptors."))))
;; What's the exit code for your?
;; Best regards
- [Chicken-users] scheduler,
F. Wittenberger <=