#!/usr/bin/guile -s
!#

; YES, THIS IS WRITTEN IN SCHEME!!!  http://shrewm.net/
; KRAD SCREEN SAVER THAT DUMPS RANDOM FORTUNES (INCLUDING NAUGHTY) TO THE SCREEN
; ALONG WITH THE TIME AND DATE IN K-RAD LEET COLORS
; THIS PRODUCT IS GUARANTEED TOMAKE YOU RICH AND LIVE FOREVER -- ENJOY


; HERE'S A FUNCTION WHICH WHEN GIVEN AN INCREMENT VALUE WILL RETURN THE NEXT
; NUMBER MOD 7 + 1 (YES, A NEW RANDOM NUMBER FROM 1-7)
(define (make-incrementor-mod-7)
 (let ((x 0)) ; WE NEED STATE, ASSHOLE! {A 'LOCAL VAR' FOR YOU IMPERATIVE FUCKS}
   (lambda (i) ; THIS IS THE ACTUAL FUNCTION.  OK.
     (set! x (modulo (+ x i 1) 7))
     (+ 1 x))))

(define next-mod-7 (make-incrementor-mod-7))
(define next-nod-7 (make-incrementor-mod-7))
   
(display "[?25l") ; CLEAR THE SCREEN.  DUH.

(let fun ()
  (display "8")
  (for-each display `("[" ,(random 2) ";3" ,(next-mod-7 (random 6))"m"))
  (if (= 0 (random 10))
      (system "/root/sex")
      (system "~games/fortune -a") )
  (for-each display `("7[1;" ,(random 52),
                      "H[1;37;4" ,(next-nod-7 (random 6)) "m")) 
  (system "date")
  (sleep 10)
  (fun) )