1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41

(use-modules (ice-9 binary-ports))

(define bitrate 8000)

(define (saw t) (
	let ((m (floor-remainder (+ t (/ 1 4)) 1)))
		(if (< m 1/2)
			(- (* 4 m) 1)
			(- 3 (* 4 m)))
))

(define (note freq start len) (
	lambda (t) (
		if (or (< t start) (>= t (+ start len)))
			0
			(saw (* freq t))
	)
))

(define (music t) (+
	((note 523.25 0 1) t)
	((note 587.33 1 1) t)
	((note 659.25 2 1) t)
	((note 698.46 3 1) t)
	((note 783.99 4 1) t)
))

(define (play t) (
	cons (music t) (if (< t 5)
		(play (+ t (/ 1 bitrate)))
		'()
	)
))

;(display (play 0))
(for-each (lambda (a) (
	let ((b (modulo (inexact->exact (round (* (+ a 2) 32768))) 65536)))
		cons
			(put-u8 (current-output-port) (modulo b 256))
			(put-u8 (current-output-port) (quotient b 256))
)) (play 0))