#!./wisp-multiline.sh
; !#

;; this example needs foof-loop installed via guildhall!
use-modules : guildhall ext foof-loop
;; Pseudocode adapted from 
;; http://en.wikipedia.org/wiki/Pseudocode#Syntax
define : divisible? number divisor
         = 0 : remainder number divisor

define : fizzbuzz
  let : : print_number #f
    loop : : for i : up-from 1 : to 100
        set! print_number #t
        when : divisible? i 3
            display "Fizz"
            set! print_number #f
        when : divisible? i 5
            display "Buzz"
            set! print_number #f;
        when print_number : display i
        newline

fizzbuzz