(include "lib.scm")

(define (melody t) (+
	((note (getfreq 3 4) 0 1/4) t)
	((note (getfreq 3 8) 1/4 1/4) t)
	((note (getfreq 3 4) 3/4 1/4) t)
	((note (getfreq 3 11) 1 1/4) t)
	((note (getfreq 3 4) 5/4 1/4) t)
	((note (getfreq 3 2) 3/2 1/4) t)
	((note (getfreq 3 8) 7/4 1/4) t)
	((note (getfreq 3 4) 9/4 1/4) t)
	((note (getfreq 3 11) 5/2 1/4) t)
	((note (getfreq 3 4) 11/4 1/4) t)
))

(define (music t) (
	melody (floor-remainder t 3)
))