#!./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