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

(include "lib.scm")

(define (melody t) (
	apply + (
		map (lambda (x) (
			apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x
		)) '(
			(2 5 1 1)
			(2 8 4 1)
			(3 5 7 1)
			(3 0 9 1)
			(2 10 10 1)
			(2 8 12 1)
			(2 7 15 1)
			(2 8 17 1)
			(2 7 18 1)
			(3 3 19 1)
			(2 8 21 1)
			(3 0 22 1)
			(3 3 23 1)
			(3 5 25 1)
			(3 0 30 1)
			(3 3 31 1)
		)
	)
))

(define (music t) (
	melody (* t 8)
))