#!/usr/bin/env gosh
(define last (string->number (car *argv*)))


(define fzlist
  '#0=(#f #f "fizz" #f "buzz"
	  "fizz" #f #f "fizz" "buzz"
	  #f "fizz" #f #f "fizzbuzz" . #0#))

(define myfizzbuzz
  (lambda (mylist first last)
    (cond
     ((car mylist) (print (car mylist)))
     ( (print first)))
    (cond
     ((eq? first last) #t)
     (#t
      (myfizzbuzz (cdr mylist) (+ first 1) last)))))
 

(myfizzbuzz fzlist 1 last)