virus.scm

#!/usr/bin/env guile
!#
((lambda (count self)
   (format #t "virus version ~a~%" count)
   (when (> count 10)
     (format #t "10 times is quite enough silliness, thank you\n")
     (quit 0))
   (call-with-output-file (string-append "/tmp/foo" (number->string count))
     (lambda (out)
       (format out "#!/usr/bin/env guile\n!#\n")
       (write (list self (+ 1 count) (list (quote quote) self)) out)
       (chmod out #o755)))
   (quit 0))
 0
 '(lambda (count self)
    (format #t "virus version ~a~%" count)
    (when (> count 10)
      (format #t "10 times is quite enough silliness, thank you\n")
      (quit 0))
    (call-with-output-file (string-append "/tmp/foo" (number->string count))
      (lambda (out)
        (format out "#!/usr/bin/env guile\n!#\n")
        (write (list self (+ 1 count) (list (quote quote) self)) out)
        (chmod out #o755)))
   (quit 0)))