From 452fa3bdcfdea130310fc1b42de08dc28054ad94 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Mon, 11 Dec 2023 18:02:33 +0100
Subject: [PATCH] fix(examples): add new examples
---
examples/04_utilities/get-score_1.omp | 4 +-
examples/02_vertical-composition/harmon-database_with-voice-permutation.omp | 4 +-
examples/03_horizontal-composition/.finderinfo | 3 +
examples/03_horizontal-composition/harmon-progress_parallel.omp | 4 +-
examples/03_horizontal-composition/harmon-progress_voice-tie2.omp | 4 +-
examples/02_vertical-composition/gen-harmonies/1) gen-harmonies_instrumentation-of-pitch-sets.omp | 4 ++
examples/02_vertical-composition/.finderinfo | 3 +
examples/02_vertical-composition/gen-harmonies/4) gen-harmonies_voice-permutations.omp | 4 ++
examples/02_vertical-composition/gen-harmonies/6) gen-harmonies_registration.omp | 4 ++
examples/01_overview/.finderinfo | 3 +
examples/02_vertical-composition/harmon-database_no-voice-permutation.omp | 4 +-
examples/02_vertical-composition/1) the-concept-of-pitch-sets.omp | 4 ++
examples/02_vertical-composition/gen-harmonies/2) gen-harmonies_instrument-ranges.omp | 4 ++
examples/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp | 4 +-
examples/03_horizontal-composition/harmon-progress_voice-tie.omp | 4 +-
examples/04_utilities/.finderinfo | 3 +
examples/03_horizontal-composition/harmon-progress_interval-progression.omp | 4 +-
/dev/null | 6 ---
examples/02_vertical-composition/gen-harmonies/5) gen-harmonies_harmonic-search.omp | 4 ++
examples/02_vertical-composition/gen-harmonies/3) gen-harmonies_transposition-scale.omp | 4 ++
examples/03_horizontal-composition/harmon-progress_rules-combined.omp | 4 +-
examples/01_overview/01) overview.omp | 6 +++
examples/02_vertical-composition/harmon-database_microtonal-structures.omp | 4 +-
examples/03_horizontal-composition/harmon-progress_seiten.omp | 4 +-
examples/03_horizontal-composition/harmon-progress_voice-tie3.omp | 4 +-
examples/04_utilities/get-score_2.omp | 4 +-
examples/02_vertical-composition/gen-harmonies/.finderinfo | 3 +
examples/03_horizontal-composition/harmon-progress_avoid-repetitions.omp | 4 +-
examples/02_vertical-composition/harmon-database_skala.omp | 4 +-
29 files changed, 79 insertions(+), 36 deletions(-)
diff --git a/examples/01_overview/.finderinfo b/examples/01_overview/.finderinfo
new file mode 100644
index 0000000..11f0eac
--- /dev/null
+++ b/examples/01_overview/.finderinfo
@@ -0,0 +1,3 @@
+; OM File Header - Saved 2023/12/09 18:23:08
+; (7.02 :fold (om-make-point 188 179) (om-make-point 50 50) (om-make-point 250 320) "" 186 1 nil nil)
+; End File Header
diff --git "a/examples/01_overview/01\051 overview.omp" "b/examples/01_overview/01\051 overview.omp"
new file mode 100644
index 0000000..89f83e7
--- /dev/null
+++ "b/examples/01_overview/01\051 overview.omp"
@@ -0,0 +1,6 @@
+; OM File Header - Saved 2023/12/09 19:13:55
+; (7.02 :patc (om-make-point 10 10) (om-make-point 298 94) (om-make-point 1127 753) "" 183 0 nil "2023/12/09 19:13:55")
+; End File Header
+; External resources
+; (list (list (quote :picture) "#P\"../../resources/pict/Logo_Library-Lead\""))
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "01) overview" (quote ((let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil))) (om-make-point 580 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 121 44) (quote "UTILITIES") "" (om-make-point 100 460) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 120 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 252 30) (quote "! WARNING ! Experimental Feature") "" (om-make-point 220 610) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-RHYTHM" (quote omlead::harmon-rhythm) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON_PROGRESS" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_NUMERATOR" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_DENOMINATOR" nil) (om-load-inputfun (quote input-funbox) "" "N-BARS" nil) (om-load-inputfun (quote input-funbox) "" "N-HARMONIES" nil) (om-load-inputfun (quote input-funbox) "" "TREE-BASE1" nil))) (om-make-point 120 630) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE 2" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 140 500) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 231 75) (quote "RHYTHMIC-PROGRESS$Generates a list of voice, and adds $rhythmic and melodic movement to$the chords") "" (om-make-point 220 630) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 238 90) (quote "HARMON-PROGRESS$Selects a series of chords from a $collection of chords in such a way $that all the given rules for harmonic $progression are taken into account.") "" (om-make-point 680 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 281 90) (quote "GET-SCORE$Generates a list of voices, to connect with a$poly-Object on its first outlet. On the other $outlets it generates a voice-Object for each$voice.") "" (om-make-point 220 500) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 275 90) (quote "GEN-HARMONIES$Generates a list with all possible chords $from a list of one or several pitch-sets, $according to the number of voices, $range of the voices, and the register-width") "" (om-make-point 220 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 272 44) (quote "VERTICAL COMPOSITION") "" (om-make-point 100 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 306 44) (quote "HORIZONTAL COMPOSITION") "" (om-make-point 600 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 165 58) (quote "OVERVIEW") "" (om-make-point 100 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) (list (let ((newpict (make-instance (quote patch-picture) :name "Logo_Library-Lead" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo_Library-Lead" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 105 60)) (setf (pict-size newpict) (om-make-point 299 154)) newpict)) 7.02))
\ No newline at end of file
diff --git a/examples/01_overview/Tutorial-Patch1 -Overview-.omp b/examples/01_overview/Tutorial-Patch1 -Overview-.omp
deleted file mode 100644
index 1a05add..0000000
--- a/examples/01_overview/Tutorial-Patch1 -Overview-.omp
+++ /dev/null
@@ -1,6 +0,0 @@
-; OM File Header - Saved 2023/11/20 18:32:01
-; (7.03 :patc (om-make-point 10 10) (om-make-point 298 94) (om-make-point 1127 635) "" 183 0 nil "2023/11/20 18:32:01")
-; End File Header
-; External resources
-; (list (list (quote :picture) "#P\"../../../resources/pict/Logo_Library-Lead\""))
-(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "Tutorial-Patch1 -Overview-" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 252 30) (quote "! WARNING ! Experimental Feature") "" (om-make-point 663 463) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-RHYTHM" (quote omlead::harmon-rhythm) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON_PROGRESS" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_NUMERATOR" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_DENOMINATOR" nil) (om-load-inputfun (quote input-funbox) "" "N-BARS" nil) (om-load-inputfun (quote input-funbox) "" "N-HARMONIES" nil) (om-load-inputfun (quote input-funbox) "" "TREE-BASE1" nil))) (om-make-point 563 501) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE 2" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 136 501) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE 2" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil))) (om-make-point 110 309) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 231 75) (quote "RHYTHMIC-PROGRESS$Generates a list of voice, and adds $rhythmic and melodic movement to$the chords") "" (om-make-point 667 500) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 247 75) (quote "HARMON-PROGRESS$Gives out to chords, which are chosen$randomly out of the harmon-database$and respects all given rules.") "" (om-make-point 682 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 281 75) (quote "GET-SCORE$Generates a list of voices, to connect with a$poly-Object on its first outlet. On the other $it generates a voice-Object for each voice.") "" (om-make-point 220 500) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 285 90) (quote "HARMON-DATABASE$Generates a collection of all possible chords $according to rules for the number of voices, $the range of the voices, interval-structure,$and the register-width") "" (om-make-point 226 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 128 30) (quote "HARMONY") "" (om-make-point 100 240) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 128 30) (quote "RHYTHM") "" (om-make-point 100 410) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 165 58) (quote "OVERVIEW") "" (om-make-point 176 12) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) (list (let ((newpict (make-instance (quote patch-picture) :name "Logo_Library-Lead" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo_Library-Lead" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 105 60)) (setf (pict-size newpict) (om-make-point 299 154)) newpict)) 7.03))
\ No newline at end of file
diff --git a/examples/02_vertical-composition/.finderinfo b/examples/02_vertical-composition/.finderinfo
new file mode 100644
index 0000000..f71afd6
--- /dev/null
+++ b/examples/02_vertical-composition/.finderinfo
@@ -0,0 +1,3 @@
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :fold (om-make-point 211 134) (om-make-point 50 50) (om-make-point 250 320) "" 186 1 nil nil)
+; End File Header
diff --git "a/examples/02_vertical-composition/1\051 the-concept-of-pitch-sets.omp" "b/examples/02_vertical-composition/1\051 the-concept-of-pitch-sets.omp"
new file mode 100644
index 0000000..bd3d27d
--- /dev/null
+++ "b/examples/02_vertical-composition/1\051 the-concept-of-pitch-sets.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 14:35:07
+; (7.02 :patc (om-make-point 388 110) (om-make-point 284 32) (om-make-point 1031 739) "" 183 0 "2023/12/09 23:23:42" "2023/12/10 00:59:36")
+; End File Header
+(in-package :om)(load-lib-for (quote nil))(setf *om-current-persistent* (om-load-patch1 "1) the-concept-of-pitch-sets" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 191 45) (quote "4.) Also microtonal intervals $can be used in a pitch-set") "" (om-make-point 754 293) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 166 45) (quote "3.) Many representation $of one pitch-set-list") "" (om-make-point 330 430) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 606 455) (om-make-point 62 30) (list 0 700) "(0 700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 630 300) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 580 300) (om-make-point 48 30) 7200 "7200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 530 300) (om-make-point 48 30) 6000 "6000" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 570 340) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 550 420) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 410 500) (om-make-point 287 90) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6100 6200) (6100 6200 6300) (6200 6300 6400) (6300 6400 6500) (6400 6500 6600) (6500 6600 6700) (6600 6700 6800) (6700 6800 6900) (6800 6900 7000) (6900 7000 7100) (7000 7100 7200) (7100 7200 7300) (7200 7300 7400))) :lonset (quote (0 700 1400 2100 2800 3500 4200 4900 5600 6300 7000 7700 8400 9400)) :ldur (quote ((1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000) (1000 1000 1000))) :lvel (quote ((100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100) (100 100 100))) :loffset (quote ((0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0))) :lchan (quote ((1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1) (1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 510 380) (om-make-point 23 35) nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 227 90) (quote "2.) ..when this list is transposed to$a certain note it will results in a $chord which is one possible $representation of this vertical $interval structure") "" (om-make-point 40 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 252 60) (quote "1.) a pitch-set-list contains $a list of intervals (in midicents), which $refers to a fundamental pitch..") "" (om-make-point 40 120) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 770 500) (om-make-point 69 90) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700 6950 7137)) :ldur (quote (1000 1000 1000)) :lvel (quote (100 100 100)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 16 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 711 350) (om-make-point 400 32) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 80 500) (om-make-point 69 90) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 6100 6200)) :ldur (quote (1000 1000 1000)) :lvel (quote (100 100 100)) :loffset (quote (0 0 0)) :lchan (quote (1 1 1))))) (load-port-info thechord (quote (0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 120 380) (om-make-point 48 30) 6000 "6000" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 850 380) (om-make-point 38 30) 6700 "6700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 810 420) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 100 420) (om-make-point 23 35) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 770 340) (om-make-point 87 30) (list 0 250 437) "(0 250 437)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 60 340) (om-make-point 77 30) (list 0 100 200) "(0 100 200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 363 58) (quote "The Concept of Pitch-Sets") "" (om-make-point 40 60) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 6 0 nil 0) (4 0 6 1 nil 0) (3 0 6 2 nil 0) (9 0 7 0 nil 0) (6 0 7 1 nil 0) (7 0 8 1 nil 0) (2 0 8 2 nil 0) (19 0 9 0 nil 0) (16 0 12 1 nil 0) (17 0 13 1 nil 0) (18 0 16 0 nil 0) (15 0 16 1 nil 0) (19 0 17 0 nil 0) (14 0 17 1 nil 0))) nil 7.02))
diff --git a/examples/02_vertical-composition/gen-harmonies/.finderinfo b/examples/02_vertical-composition/gen-harmonies/.finderinfo
new file mode 100644
index 0000000..5eabd99
--- /dev/null
+++ b/examples/02_vertical-composition/gen-harmonies/.finderinfo
@@ -0,0 +1,3 @@
+; OM File Header - Saved 2023/12/11 14:35:07
+; (7.02 :fold (om-make-point 442 60) (om-make-point 50 50) (om-make-point 250 320) "" 186 1 "2023/12/11 14:23:48" nil)
+; End File Header
diff --git "a/examples/02_vertical-composition/gen-harmonies/1\051 gen-harmonies_instrumentation-of-pitch-sets.omp" "b/examples/02_vertical-composition/gen-harmonies/1\051 gen-harmonies_instrumentation-of-pitch-sets.omp"
new file mode 100644
index 0000000..903ba6f
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/1\051 gen-harmonies_instrumentation-of-pitch-sets.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 14:35:07
+; (7.02 :patc (om-make-point 442 60) (om-make-point 33 32) (om-make-point 1458 854) "" 183 0 "2023/12/09 19:17:24" "2023/12/11 14:35:07")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "1) gen-harmonies_instrumentation-of-pitch-sets" (quote ((let ((box (om-load-boxcomment "comment 2" (om-make-point 252 60) (quote "5.) See the next patch to discover $how to set an individual range for each$instrument..") "" (om-make-point 737 532) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 900 240) (om-make-point 72 90) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100 6000 6300 6200)) :ldur (quote (1000 1000 1000 1000)) :lvel (quote (100 100 100 100)) :loffset (quote (0 0 0 0)) :lchan (quote (1 1 1 1))))) (load-port-info thechord (quote (0 0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 760 240) (om-make-point 73 90) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 6100 6200 6300)) :ldur (quote (1000 1000 1000 1000)) :lvel (quote (100 100 100 100)) :loffset (quote (0 0 0 0)) :lchan (quote (1 1 1 1))))) (load-port-info thechord (quote (0 0 0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (let ((box (om-load-boxcall (quote genfun) "LIST-ELEMENTS" (quote list-elements) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 1007 270) (om-make-point 323 59) nil nil nil 4))) (setf (numouts box) 4) box))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 228 60) (quote "4.) a permutated pitch-set-list will $give another instrumentation $of the same pitch-set") "" (om-make-point 924 104) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 8" (om-make-point 166 60) (quote "cmd+click and type in $omlead::gen-harmonies $to create the function") "" (om-make-point 18 296) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 29 221) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 524 714) (om-make-point 62 30) (list 0 700) "(0 700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ 2" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 382 743) (om-make-point 442 97) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6100 6200 6300) (6100 6200 6300 6400) (6200 6300 6400 6500) (6300 6400 6500 6600) (6400 6500 6600 6700) (6500 6600 6700 6800) (6600 6700 6800 6900) (6700 6800 6900 7000) (6800 6900 7000 7100) (6900 7000 7100 7200))) :lonset (quote (0 700 1400 2100 2800 3500 4200 4900 5600 6300 7300)) :ldur (quote ((1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000))) :lvel (quote ((100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr4") "" (om-make-point 1258 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr3") "" (om-make-point 1178 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr2") "" (om-make-point 1098 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr1") "" (om-make-point 1018 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 928 168) (om-make-point 112 30) (list 100 0 300 200) "(100 0 300 200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 1178 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6300 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 1098 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6000 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 1018 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6100 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 1258 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6200 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 1058 188) (om-make-point 48 30) 6000 "6000" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+ 2" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 1048 228) (om-make-point 24 35) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 400 480) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 61 45) (quote "list of $chords") "" (om-make-point 540 650) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 4" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 371 510) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 7" (om-make-point 56 30) (quote "instr4") "" (om-make-point 667 550) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 6" (om-make-point 56 30) (quote "instr3") "" (om-make-point 603 550) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 5" (om-make-point 56 30) (quote "instr2") "" (om-make-point 540 550) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 4" (om-make-point 56 30) (quote "instr1") "" (om-make-point 478 550) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 110 45) (quote "list of $pitch-set-lists") "" (om-make-point 260 510) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES 2" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 6300)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" (list 6000 6300)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" (list 6000 6300)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" (list 6000 6300)))) (om-make-point 350 590) (om-make-point 377 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr4") "" (om-make-point 660 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr3") "" (om-make-point 580 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr2") "" (om-make-point 500 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 56 30) (quote "instr1") "" (om-make-point 420 428) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 102 30) (quote "pitch-set-list") "" (om-make-point 330 138) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 580 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6200 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 500 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6100 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 420 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6000 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 660 338) (om-make-point 67 83) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 6300 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 0 0 (om-make-point 300 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (let ((box (om-load-boxcall (quote genfun) "LIST-ELEMENTS" (quote list-elements) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 409 270) (om-make-point 323 59) nil nil nil 4))) (setf (numouts box) 4) box))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 460 188) (om-make-point 48 30) 6000 "6000" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+ 2" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 450 228) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 330 168) (om-make-point 112 30) (list 0 100 200 300) "(0 100 200 300)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 251 60) (quote "3.) each pitch will be assigned to the $corresponding instrument in the order $of the pitch-set-list") "" (om-make-point 750 348) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 240 60) (quote "2.) pitch-sets which are given to the $gen-harmonies-function may $contain up to four pitches. ") "" (om-make-point 450 110) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 245 75) (quote "1.) gen-harmonies is a function which$is created to transpose all $pitch-sets within a pitch-set-list $to a scale of notes") "" (om-make-point 20 140) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 699 58) (quote "Instrumentation of Pitch-Sets with gen-harmonies") "" (om-make-point 20 40) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((19 0 1 1 nil 0) (40 0 2 1 nil 0) (19 0 3 0 nil 0) (28 0 8 1 nil 0) (7 0 8 2 nil 0) (3 2 14 1 nil 0) (3 1 15 1 nil 0) (3 0 16 1 nil 0) (3 3 17 1 nil 0) (13 0 19 0 nil 0) (18 0 19 1 nil 0) (41 0 22 0 nil 0) (22 0 28 0 nil 0) (20 0 28 1 nil 2) (20 0 28 2 nil 2) (20 0 28 3 nil 2) (20 0 28 4 nil 2) (38 2 34 1 nil 0) (38 1 35 1 nil 0) (38 0 36 1 nil 0) (38 3 37 1 nil 0) (40 0 38 0 nil 0) (41 0 40 0 nil 0) (39 0 40 1 nil 0))) nil 7.02))
diff --git "a/examples/02_vertical-composition/gen-harmonies/2\051 gen-harmonies_instrument-ranges.omp" "b/examples/02_vertical-composition/gen-harmonies/2\051 gen-harmonies_instrument-ranges.omp"
new file mode 100644
index 0000000..8d09f78
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/2\051 gen-harmonies_instrument-ranges.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 14:35:07
+; (7.02 :patc (om-make-point 442 60) (om-make-point 0 32) (om-make-point 1512 854) "" 183 0 "2023/12/10 00:38:51" "2023/12/11 14:07:08")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "2) gen-harmonies_instrument-ranges" (quote ((let ((box (om-load-boxcomment "comment 5" (om-make-point 211 60) (quote "5.) if you set the key-argument $avoid-empty-voices to 't all the $-1 placeholders will be removed") nil (om-make-point 586 441) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 121 698) (om-make-point 118 101) (load-buffer-textfile (quote ("(6000 -1 6700 -1)" "(6100 -1 6800 -1)" "(6200 -1 6900 -1)" "(6300 -1 7000 -1)" "(6400 -1 7100 -1)" "(6500 -1 7200 -1)" "")) (quote textfile) "supersede" "list") "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 4" (om-make-point 273 58) (quote "Instrument-ranges") nil (om-make-point 156 45) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 9" (quote t) (quote nil) (om-make-point 601 546) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ 2" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 504 729) (om-make-point 378 98) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6700) (6100 6800) (6200 6900) (6300 7000) (6400 7100) (6500 7200))) :lonset (quote (0 1000 2000 3000 4000 5000 6000)) :ldur (quote ((1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000))) :lvel (quote ((100 100) (100 100) (100 100) (100 100) (100 100) (100 100))) :loffset (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0))) :lchan (quote ((1 1) (1 1) (1 1) (1 1) (1 1) (1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 538 509) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 451 467) (om-make-point 129 30) (list (list 0 400 700 1200)) "((0 400 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition" "avoid-empty-voices" (quote :avoid-empty-voices) nil nil))) (om-make-point 518 578) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 112 555) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 3" (om-make-point 279 150) (quote "4.) you need to define the range $for each instrument that you want to use. $only the pitches which have $instruments with a defined range will $be processed. if you have less instruments$with defined range than pitches in $your pitch-set-list, you will get chords with $-1 for each pitch which has no defined $instrument") "" (om-make-point 222 552) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 47 473) (om-make-point 129 30) (list (list 0 400 700 1200)) "((0 400 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 73 603) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 16 45) (quote "$") "" (om-make-point 44 410) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 1070 586) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 871 553) (om-make-point 48 30) 1200 "1200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 244 30) (quote "a chromatic scale of major chords") "" (om-make-point 1179 698) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 244 60) (quote "3.) in this case the scale starts at$e4 and ends at c5 because the range $of instrument 1 has not changed.") "" (om-make-point 1085 314) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 276 90) (quote "2.) if you instead set a pitch-set-list which $contains the pitch-set (400) the resulting $pitch will be always one major third above$the note to which it is tranposed.$") "" (om-make-point 910 174) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 456 75) (quote "1.) if you just evaluate the gen-harmonies-function by it default-values, $you will get the pitch-set (0) that is transposed on each chromatic $note with-in the range (6000 7200) of instrument 1.$The result is a chromatic scale from c4 to c5") "" (om-make-point 230 170) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 815 447) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 853 517) (om-make-point 41 30) 700 "700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 1043 548) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 831 478) (om-make-point 41 30) 400 "400" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM+" (quote om+) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" 0) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 1016 517) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 2" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 845 638) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 805 590) (om-make-point 110 43) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 1050 700) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 970 730) (om-make-point 302 105) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6400 6700 7200) (6100 6500 6800 7300) (6200 6600 6900 7400) (6300 6700 7000 7500) (6400 6800 7100 7600) (6500 6900 7200 7700) (6600 7000 7300 7800) (6700 7100 7400 7900) (6800 7200 7500 8000) (6900 7300 7600 8100) (7000 7400 7700 8200) (7100 7500 7800 8300) (7200 7600 7900 8400))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 4800 5800)) :ldur (quote ((1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000))) :lvel (quote ((100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 837 435) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 954 439) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 943 630) (om-make-point 164 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 830 270) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 750 310) (om-make-point 302 105) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6400) (6500) (6600) (6700) (6800) (6900) (7000) (7100) (7200))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 4200)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 810 150) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 730 150) (om-make-point 61 30) (list (list 400)) "((400))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 770 190) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 150 250) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 80 310) (om-make-point 302 105) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6100) (6200) (6300) (6400) (6500) (6600) (6700) (6800) (6900) (7000) (7100) (7200))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 4800 5800)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 110 130) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 50 130) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 90 170) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((11 0 1 1 nil 0) (7 0 4 1 nil 0) (6 0 7 0 nil 0) (5 0 7 1 nil 0) (5 0 7 3 nil 0) (3 0 7 5 nil 0) (10 0 11 0 nil 0) (8 0 11 1 nil 0) (8 0 11 3 nil 0) (14 0 13 0 nil 3) (28 0 13 1 nil 1) (20 0 21 0 nil 12) (28 0 21 1 nil 1) (22 0 23 0 nil 2) (28 0 23 1 nil 1) (25 0 24 0 nil 0) (19 0 25 0 nil 0) (22 0 25 1 nil 2) (20 0 25 2 nil 12) (14 0 25 3 nil 3) (29 0 27 1 nil 0) (26 0 27 2 nil 0) (24 0 29 0 nil 0) (28 0 29 1 nil 1) (23 0 29 2 nil 2) (21 0 29 3 nil 12) (13 0 29 4 nil 3) (34 0 31 1 nil 0) (30 0 31 2 nil 0) (33 0 34 0 nil 0) (32 0 34 1 nil 0) (39 0 36 1 nil 0) (35 0 36 2 nil 0) (38 0 39 0 nil 0) (37 0 39 1 nil 0))) nil 7.02))
diff --git "a/examples/02_vertical-composition/gen-harmonies/3\051 gen-harmonies_transposition-scale.omp" "b/examples/02_vertical-composition/gen-harmonies/3\051 gen-harmonies_transposition-scale.omp"
new file mode 100644
index 0000000..5f87ddc
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/3\051 gen-harmonies_transposition-scale.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 14:35:07
+; (7.02 :patc (om-make-point 10 110) (om-make-point 54 32) (om-make-point 1357 842) "" 183 0 "2023/12/09 23:18:12" "2023/12/11 14:23:23")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "3) gen-harmonies_transposition-scale" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 687 543) (om-make-point 48 30) 6200 "6200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 603 505) (om-make-point 90 30) (list 5000 7000) "(5000 7000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 262 90) (quote "4.) the transposition-scale will$be continued above and below $the fundamental if it is somewhere $in between the limits of the instruments $range") nil (om-make-point 834 550) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "fundamental" (quote :fundamental) nil nil))) (om-make-point 614 573) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 608 465) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 564 533) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 614 673) (om-make-point 427 96) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((5000) (5200) (5400) (5500) (5700) (5900) (6100) (6200) (6400) (6600) (6700) (6900))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 5400)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 633 416) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 4)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 754 633) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 327 30) (quote "choose a fundamental for a one octave major-scale") nil (om-make-point 51 386) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 145 435) (om-make-point 48 30) 1200 "1200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "+" (quote +) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 131 465) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 100 516) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 209 105) (quote "3.) you can also have a list $with several different intervals. $with the key-argument $fundamental you can fix the $transposition-scale on a $certain note") nil (om-make-point 309 546) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 194 505) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 39 529) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "fundamental" (quote :fundamental) nil nil))) (om-make-point 89 569) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 58 415) (om-make-point 48 30) 5700 "5700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 89 669) (om-make-point 427 96) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((5700) (5900) (6100) (6200) (6400) (6600) (6800) (6900))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3800)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 633 416) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 4)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 229 629) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 220 60) (quote "2.) with the key-argument skala, $you can define any other interval $for your transposition-scale ") nil (om-make-point 720 120) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 234 75) (quote "1.) by default the notes on $which each pitch-set ist transposed $is a chromatic-scale that is limited $by the instrument-ranges") nil (om-make-point 220 120) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 670 130) (om-make-point 44 30) (list 50) "(50)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 680 220) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 540 260) (om-make-point 564 100) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6050) (6100) (6150) (6200) (6250) (6300) (6350) (6400) (6450) (6500) (6550) (6600) (6650) (6700) (6750) (6800) (6850) (6900) (6950) (7000) (7050) (7100) (7150) (7200))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 4800 5200 5600 6000 6400 6800 7200 7600 8000 8400 8800 9200 9600 10600)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 633 416) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 4)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 540 100) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil))) (om-make-point 540 160) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 490 120) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 160 230) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 60 260) (om-make-point 335 96) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6100) (6200) (6300) (6400) (6500) (6600) (6700) (6800) (6900) (7000) (7100) (7200))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 4800 5800)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 80 100) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 30 120) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 100 160) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 3 0 nil 0) (1 0 3 1 nil 0) (4 0 3 5 nil 0) (0 0 3 6 nil 0) (3 0 6 1 nil 0) (7 0 6 2 nil 0) (16 0 10 0 nil 0) (9 0 10 1 nil 0) (16 0 11 0 nil 0) (10 0 11 1 nil 0) (14 0 15 0 nil 0) (11 0 15 1 nil 0) (13 0 15 5 nil 0) (16 0 15 6 nil 2) (15 0 17 1 nil 0) (18 0 17 2 nil 0) (25 0 23 1 nil 0) (22 0 23 2 nil 0) (26 0 25 0 nil 0) (24 0 25 1 nil 0) (21 0 25 5 nil 0) (31 0 28 1 nil 0) (27 0 28 2 nil 0) (30 0 31 0 nil 0) (29 0 31 1 nil 0))) nil 7.02))
diff --git "a/examples/02_vertical-composition/gen-harmonies/4\051 gen-harmonies_voice-permutations.omp" "b/examples/02_vertical-composition/gen-harmonies/4\051 gen-harmonies_voice-permutations.omp"
new file mode 100644
index 0000000..79bb34e
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/4\051 gen-harmonies_voice-permutations.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 15:54:49
+; (7.02 :patc (om-make-point 442 60) (om-make-point 53 65) (om-make-point 687 676) "" 183 0 "2023/12/11 14:24:44" "2023/12/11 15:31:05")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "4) gen-harmonies_voice-permutations" (quote ((let ((box (om-load-boxcomment "comment 3" (om-make-point 282 58) (quote "Voice-permutations") nil (om-make-point 119 70) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "explanation" (om-load-patch-abs1 "explanation" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 1167 192) (om-make-point 34 30) 12 "12" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FIRST-N" (quote first-n) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil) (om-load-inputfun (quote input-funbox) "number of elements" "N" 0))) (om-make-point 1093 222) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 1175 101) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE 2" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 1079 450) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES 2" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition" "avoid-empty-voices" (quote :avoid-empty-voices) nil nil))) (om-make-point 1063 140) (om-make-point 91 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 1061 540) (om-make-point 271 149) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (12 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote ((nil (om-load-patch-abs1 "patch" (quote nil) (quote nil) 7.02 nil "" (om-make-point 200 200) (om-make-point 400 500)))))) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 958 392) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 1119 101) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE 2" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 1061 280) (om-make-point 123 160) (load-buffer-textfile (quote ("(6000)" "(6700)" "(6100)" "(6800)" "(6200)" "(6900)" "(6300)" "(7000)" "(6400)" "(7100)" "(6500)" "(7200)" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 1046 60) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 998 100) (om-make-point 72 30) (list (list 0 700)) "((0 700))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 739 450) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 721 540) (om-make-point 271 149) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (19 (((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4)) ((4 4) (-4))))) :chords (load-obj-list-from-save (quote nil)) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote nil))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (19 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote ((nil (om-load-patch-abs1 "patch" (quote nil) (quote nil) 7.02 nil "" (om-make-point 200 200) (om-make-point 400 500)))))) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 32) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 807 100) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 727 140) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 721 280) (om-make-point 123 160) (load-buffer-textfile (quote ("(6000 -1)" "(6700 -1)" "(6100 -1)" "(6800 -1)" "(6200 -1)" "(6900 -1)" "(6300 -1)" "(7000 -1)" "(6400 -1)" "(7100 -1)" "(6500 -1)" "(7200 -1)" "(6600 -1)" "(6700 -1)" "(6800 -1)" "(6900 -1)" "(7000 -1)" "(7100 -1)" "(7200 -1)" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 710 60) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 662 100) (om-make-point 72 30) (list (list 0 700)) "((0 700))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 398 450) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 380 540) (om-make-point 271 149) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (12 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (12 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 466 100) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 380 280) (om-make-point 123 160) (load-buffer-textfile (quote ("(6000 6700)" "(6700 6000)" "(6100 6800)" "(6800 6100)" "(6200 6900)" "(6900 6200)" "(6300 7000)" "(7000 6300)" "(6400 7100)" "(7100 6400)" "(6500 7200)" "(7200 6500)" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 369 60) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 321 100) (om-make-point 72 30) (list (list 0 700)) "((0 700))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 386 140) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 56 540) (om-make-point 244 108) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6700) (6100 6800) (6200 6900) (6300 7000) (6400 7100) (6500 7200))) :lonset (quote (0 1000 2000 3000 4000 5000 6000)) :ldur (quote ((1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000))) :lvel (quote ((100 100) (100 100) (100 100) (100 100) (100 100) (100 100))) :loffset (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0))) :lchan (quote ((1 1) (1 1) (1 1) (1 1) (1 1) (1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 60 280) (om-make-point 131 110) (load-buffer-textfile (quote ("(6000 6700)" "(6100 6800)" "(6200 6900)" "(6300 7000)" "(6400 7100)" "(6500 7200)" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 55 60) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 8 100) (om-make-point 72 30) (list (list 0 700)) "((0 700))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 68 140) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 1 0 nil 0) (0 0 1 1 nil 0) (7 1 3 0 nil 0) (9 0 4 0 nil 0) (8 0 4 1 nil 0) (6 0 4 5 nil 0) (2 0 4 6 nil 0) (3 0 5 1 nil 0) (1 0 7 1 nil 0) (14 1 10 0 nil 0) (10 0 11 1 nil 0) (16 0 13 0 nil 0) (15 0 13 1 nil 0) (12 0 13 5 nil 0) (13 0 14 1 nil 0) (20 1 17 0 nil 0) (17 0 18 1 nil 0) (23 0 20 1 nil 0) (22 0 23 0 nil 0) (21 0 23 1 nil 0) (21 0 23 2 nil 0) (19 0 23 5 nil 0) (25 1 24 1 nil 0) (28 0 25 1 nil 0) (27 0 28 0 nil 0) (26 0 28 1 nil 0) (26 0 28 2 nil 0))) 7.02 nil "" (om-make-point 0 71) (om-make-point 1438 729)) (quote nil) (om-make-point 487 624) nil nil nil "explanation"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment 2" (om-make-point 378 30) (quote "Why we get a sequence here when permutations is t?") nil (om-make-point 72 620) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 130 30) (quote "3. watch the result") nil (om-make-point 392 460) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 297 30) (quote "2. choose t/nil for key-argument permutations") nil (om-make-point 260 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 282 30) (quote "1. choose the second pitch of your pitch-set") nil (om-make-point 80 180) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "pitch-set" (om-load-patch-abs1 "pitch-set" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 160/3 2297/9) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 121 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 57 62) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 52 92) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 50 139) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 0 0 nil 0) (2 0 3 0 nil 0) (1 0 3 1 nil 0) (3 0 4 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 246 3422/9)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 24 240) nil (list (list (list 0 700))) nil "pitch-set"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 34 180) (om-make-point 41 30) 700 "700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "first-n" (om-load-patch-abs1 "first-n" (quote ((let ((box (om-load-boxcall (quote lispfun) "+" (quote +) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 191 525) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 348 384) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 285 384) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 3" 2 (om-make-point 252 240) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OMIF" (quote omif) (quote ((om-load-inputfun (quote input-funbox) "IF" "TEST" nil) (om-load-inputfun (quote input-funbox) "THEN" "ACTION" nil) (om-load-inputfun (quote input-funbox) "ELSE" "ELSE" nil))) (om-make-point 267 414) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 264 568) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 48 51) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 148 204) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "*" (quote *) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2))) (om-make-point 71 510) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CADAR" (quote cadar) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 83 265) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "- 2" (quote -) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 69 312) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "ROUND" (quote round) (quote ((om-load-inputfun (quote input-funbox) "M" "M" nil))) (om-make-point 59 432) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 102 346) (om-make-point 45 30) 0.01 "0.01" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" nil) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 100))) (om-make-point 74 376) (om-make-point 26 35) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "-" (quote -) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 50 258) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CADR" (quote cadr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 50 200) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 86 201) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((8 0 0 0 nil 0) (4 0 0 1 nil 0) (3 0 4 0 nil 0) (2 0 4 1 nil 0) (1 0 4 2 nil 0) (0 0 5 0 nil 0) (11 0 8 0 nil 0) (7 0 9 0 nil 0) (14 0 10 0 nil 0) (9 0 10 1 nil 0) (13 0 11 0 nil 0) (10 0 13 0 nil 0) (12 0 13 1 nil 0) (15 0 14 0 nil 0) (16 0 14 1 nil 0) (6 0 15 0 nil 0) (6 0 16 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 630 635)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil) (om-load-inputfun (quote input-funbox) "" "input 3" nil))) (om-make-point 40 355) nil (list 12) nil "first-n"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FIRST-N" (quote first-n) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil) (om-load-inputfun (quote input-funbox) "number of elements" "N" 0))) (om-make-point 160 420) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 212 275) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 212 460) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 72 500) (om-make-point 475 116) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6700) (6100) (6800) (6200) (6900) (6300) (7000) (6400) (7100) (6500) (7200))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4000 4400 5400)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 229 240) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 120 240) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition" "avoid-empty-voices" (quote :avoid-empty-voices) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 120 340) (om-make-point 136 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((7 0 6 0 nil 0) (6 0 8 0 nil 0) (14 0 8 1 nil 0) (13 0 8 2 nil 0) (15 0 9 0 nil 0) (8 0 9 1 nil 0) (9 0 12 1 nil 0) (11 0 12 2 nil 0) (6 0 15 0 nil 0) (14 0 15 1 nil 0) (10 0 15 5 nil 0) (13 0 15 6 nil 0))) nil 7.02))
diff --git "a/examples/02_vertical-composition/gen-harmonies/5\051 gen-harmonies_harmonic-search.omp" "b/examples/02_vertical-composition/gen-harmonies/5\051 gen-harmonies_harmonic-search.omp"
new file mode 100644
index 0000000..2f9e411
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/5\051 gen-harmonies_harmonic-search.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 15:54:49
+; (7.02 :patc (om-make-point 354 168) (om-make-point 0 46) (om-make-point 1510 838) "" 183 0 nil "2023/12/11 15:54:49")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "5) gen-harmonies_harmonic-search" (quote ((let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 940 400) (om-make-point 166 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 5" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 690 259) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST 4" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 210 259) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil))) (om-make-point 460 400) (om-make-point 166 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 505 45) (quote "alle m�glichen Positionen zweier weiterer T�ne $die innerhalb diesen Intervalls liegen bei unterschiedlicher Intervallgr��e (Skala)") "" (om-make-point 765 66) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 196 30) (quote "Rahmenintervall einer Oktave") "" (om-make-point 765 40) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 620 360) (om-make-point 44 30) (list 50) "(50)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 715 632) (om-make-point 474 150) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 7200 6100 6200) (6000 7200 6100 6300) (6000 7200 6100 6400) (6000 7200 6100 6500) (6000 7200 6100 6600) (6000 7200 6100 6700) (6000 7200 6100 6800) (6000 7200 6100 6900) (6000 7200 6100 7000) (6000 7200 6100 7100) (6000 7200 6200 6300) (6000 7200 6200 6400) (6000 7200 6200 6500) (6000 7200 6200 6600) (6000 7200 6200 6700) (6000 7200 6200 6800) (6000 7200 6200 6900) (6000 7200 6200 7000) (6000 7200 6200 7100) (6000 7200 6300 6400) (6000 7200 6300 6500) (6000 7200 6300 6600) (6000 7200 6300 6700) (6000 7200 6300 6800) (6000 7200 6300 6900) (6000 7200 6300 7000) (6000 7200 6300 7100) (6000 7200 6400 6500) (6000 7200 6400 6600) (6000 7200 6400 6700) (6000 7200 6400 6800) (6000 7200 6400 6900) (6000 7200 6400 7000) (6000 7200 6400 7100) (6000 7200 6500 6600) (6000 7200 6500 6700) (6000 7200 6500 6800) (6000 7200 6500 6900) (6000 7200 6500 7000) (6000 7200 6500 7100) (6000 7200 6600 6700) (6000 7200 6600 6800) (6000 7200 6600 6900) (6000 7200 6600 7000) (6000 7200 6600 7100) (6000 7200 6700 6800) (6000 7200 6700 6900) (6000 7200 6700 7000) (6000 7200 6700 7100) (6000 7200 6800 6900) (6000 7200 6800 7000) (6000 7200 6800 7100) (6000 7200 6900 7000) (6000 7200 6900 7100) (6000 7200 7000 7100))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000 13000 14000 15000 16000 17000 18000 19000 20000 21000 22000 23000 24000 25000 26000 27000 28000 29000 30000 31000 32000 33000 34000 35000 36000 37000 38000 39000 40000 41000 42000 43000 44000 45000 46000 47000 48000 49000 50000 51000 52000 53000 54000 55000)) :ldur (quote ((1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000))) :lvel (quote ((100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (measure onset approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list nil nil 2 16 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 7/20 nil 1000 0 (om-make-point 1156 201) (om-make-point 41 38) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH 2" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 843 796) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 792 134) (om-make-point 48 30) 1200 "1200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 1040 360) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 1080 360) (om-make-point 37 30) (list 0) "(0)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 946 260) (om-make-point 90 30) (list 6100 7100) "(6100 7100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 773 196) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 744 166) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 835 166) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 748 308) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 687 205) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR 2" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 925 508) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 826 460) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 804 425) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 570 360) (om-make-point 37 30) (list 0) "(0)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 530 360) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH 2" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 318 792) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 190 629) (om-make-point 474 150) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6900 6100 6200) (6000 6900 6100 6300) (6000 6900 6100 6400) (6000 6900 6100 6500) (6000 6900 6100 6600) (6000 6900 6100 6700) (6000 6900 6100 6800) (6000 6900 6150 6250) (6000 6900 6150 6350) (6000 6900 6150 6450) (6000 6900 6150 6550) (6000 6900 6150 6650) (6000 6900 6150 6750) (6000 6900 6200 6300) (6000 6900 6200 6400) (6000 6900 6200 6500) (6000 6900 6200 6600) (6000 6900 6200 6700) (6000 6900 6200 6800) (6000 6900 6250 6350) (6000 6900 6250 6450) (6000 6900 6250 6550) (6000 6900 6250 6650) (6000 6900 6250 6750) (6000 6900 6300 6400) (6000 6900 6300 6500) (6000 6900 6300 6600) (6000 6900 6300 6700) (6000 6900 6300 6800) (6000 6900 6350 6450) (6000 6900 6350 6550) (6000 6900 6350 6650) (6000 6900 6350 6750) (6000 6900 6400 6500) (6000 6900 6400 6600) (6000 6900 6400 6700) (6000 6900 6400 6800) (6000 6900 6450 6550) (6000 6900 6450 6650) (6000 6900 6450 6750) (6000 6900 6500 6600) (6000 6900 6500 6700) (6000 6900 6500 6800) (6000 6900 6550 6650) (6000 6900 6550 6750) (6000 6900 6600 6700) (6000 6900 6600 6800) (6000 6900 6650 6750) (6000 6900 6700 6800))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000 13000 14000 15000 16000 17000 18000 19000 20000 21000 22000 23000 24000 25000 26000 27000 28000 29000 30000 31000 32000 33000 34000 35000 36000 37000 38000 39000 40000 41000 42000 43000 44000 45000 46000 47000 48000 49000)) :ldur (quote ((1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000))) :lvel (quote ((100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (measure onset approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list nil nil 4 16 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1/4 nil 1000 0 (om-make-point 747 395) (om-make-point 400 38) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 324 423) (om-make-point 80 30) (list 6000 6900) "(6000 6900)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 346 458) nil nil "l" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR 2" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 445 506) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 207 203) (om-make-point 27 30) 0 "0" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAPCAR" (quote mapcar) (quote ((om-load-inputfun (quote input-funbox) "FUNCTION" "FUNCTION" nil) (om-load-inputfun (quote input-funbox) "LIST" "LIST" nil))) (om-make-point 268 306) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 307 131) (om-make-point 41 30) 900 "900" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 355 164) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 264 164) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 293 194) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 461 256) (om-make-point 90 30) (list 6100 6800) "(6100 6800)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 505 45) (quote "alle m�glichen Positionen zweier weiterer T�ne $die innerhalb diesen Intervalls liegen bei unterschiedlicher Intervallgr��e (Skala)") "" (om-make-point 42 62) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 187 30) (quote "Rahmenintervall einer Sexte") "" (om-make-point 48 34) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((16 0 0 0 nil 0) (12 0 0 1 nil 0) (12 0 0 2 nil 0) (10 0 0 5 nil 0) (11 0 0 6 nil 0) (17 0 1 0 nil 0) (28 0 2 0 nil 0) (29 0 3 0 nil 0) (34 0 3 1 nil 0) (34 0 3 2 nil 0) (22 0 3 5 nil 0) (21 0 3 6 nil 0) (6 0 3 7 nil 0) (18 0 7 1 nil 0) (7 1 8 0 nil 0) (14 0 13 0 nil 0) (9 0 13 1 nil 0) (15 0 13 2 nil 0) (1 0 16 0 nil 0) (13 0 16 1 nil 0) (19 0 18 0 nil 0) (0 0 18 1 nil 0) (20 0 19 0 nil 0) (24 1 23 0 nil 0) (27 0 24 1 nil 0) (25 0 26 0 nil 0) (26 0 27 0 nil 0) (3 0 27 1 nil 0) (2 0 29 0 nil 0) (33 0 29 1 nil 0) (32 0 33 0 nil 0) (30 0 33 1 nil 0) (31 0 33 2 nil 0))) nil 7.02))
diff --git "a/examples/02_vertical-composition/gen-harmonies/6\051 gen-harmonies_registration.omp" "b/examples/02_vertical-composition/gen-harmonies/6\051 gen-harmonies_registration.omp"
new file mode 100644
index 0000000..1272a3f
--- /dev/null
+++ "b/examples/02_vertical-composition/gen-harmonies/6\051 gen-harmonies_registration.omp"
@@ -0,0 +1,4 @@
+; OM File Header - Saved 2023/12/11 15:54:49
+; (7.02 :patc (om-make-point 442 60) (om-make-point 144 96) (om-make-point 1101 695) "" 183 0 "2023/12/11 15:32:56" "2023/12/11 15:54:49")
+; End File Header
+(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "6) gen-harmonies_registration" (quote ((let ((box (om-load-boxcall (quote lispfun) "LIST 2" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 323 328) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "/" (quote /) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 2))) (om-make-point 292 278) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 0))) (om-make-point 285 328) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "-" (quote -) (quote ((om-load-inputfun (quote input-funbox) "NUM" "NUM" 0) (om-load-inputfun (quote input-funbox) "add-input" "add-input" 0))) (om-make-point 374 274) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 399 211) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CADR" (quote cadr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 369 211) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 182 58) (quote "Registration") nil (om-make-point 80 61) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 433 288) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 129 485) (om-make-point 938 130) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((4800 5200 5500 6000) (4800 5200 5500 7200) (4800 5200 6700 6000) (4800 5200 6700 7200) (4800 6400 5500 6000) (4800 6400 5500 7200) (4800 6400 6700 6000) (4800 6400 6700 7200) (6000 5200 5500 6000) (6000 5200 5500 7200) (6000 5200 6700 6000) (6000 5200 6700 7200) (6000 6400 5500 6000) (6000 6400 5500 7200) (6000 6400 6700 6000) (6000 6400 6700 7200))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 11000 12000 13000 14000 15000 16000)) :ldur (quote ((1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000) (1000 1000 1000 1000))) :lvel (quote ((100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100) (100 100 100 100))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 10 280) (om-make-point 129 30) (list (list 0 400 700 1200)) "((0 400 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 160 198) (om-make-point 90 30) (list 4800 7200) "(4800 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "fundamental" (quote :fundamental) nil nil))) (om-make-point 68 371) (om-make-point 345 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (3 0 1 0 nil 0) (1 0 2 1 nil 0) (5 0 3 0 nil 0) (4 0 3 1 nil 0) (10 0 4 0 nil 0) (10 0 5 0 nil 0) (10 0 7 0 nil 0) (11 0 8 1 nil 0) (9 0 11 0 nil 0) (10 0 11 1 nil 0) (10 0 11 2 nil 0) (10 0 11 3 nil 0) (10 0 11 4 nil 0) (2 0 11 5 nil 0) (0 0 11 6 nil 0) (7 0 11 7 nil 0))) nil 7.02))
diff --git a/examples/02_vertical-composition/harmon-database_microtonal-structures.omp b/examples/02_vertical-composition/harmon-database_microtonal-structures.omp
index 628e6bf..c56b6f5 100644
--- a/examples/02_vertical-composition/harmon-database_microtonal-structures.omp
+++ b/examples/02_vertical-composition/harmon-database_microtonal-structures.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 180 219) (om-make-point 50 50) (om-make-point 1378 710) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :patc (om-make-point 180 219) (om-make-point 50 50) (om-make-point 1378 710) "" 183 0 nil "2023/12/09 18:23:08")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-database_microtonal-structures" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 226 30) (quote "quartertone-scale for transposition") nil (om-make-point 435 307) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 11" (quote t) (quote nil) (om-make-point 566 438) (om-make-point 58 30) (list 2000) "(2000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 10" (quote t) (quote nil) (om-make-point 461 438) (om-make-point 69 30) (list 0 2000) "(0 2000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 9" (quote t) (quote nil) (om-make-point 675 409) (om-make-point 44 30) (list 70) "(70)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 87 473) (om-make-point 944 177) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6666 6816 6000 6150) (6666 6816 6000 7116) (6666 6816 6000 7927) (6666 6816 6966 6150) (6666 6816 6966 7116) (6666 6816 6966 7927) (6666 6816 7777 6150) (6666 6816 7777 7116) (6666 6816 7777 7927) (6666 7627 6000 6150) (6666 7627 6000 7116) (6666 7627 6000 7927) (6666 7627 6966 6150) (6666 7627 6966 7116) (6666 7627 6966 7927) (6666 7627 7777 6150) (6666 7627 7777 7116) (6666 7627 7777 7927) (7477 6816 6000 6150) (7477 6816 6000 7116) (7477 6816 6000 7927) (7477 6816 6966 6150) (7477 6816 6966 7116) (7477 6816 6966 7927) (7477 6816 7777 6150) (7477 6816 7777 7116) (7477 6816 7777 7927) (7477 7627 6000 6150) (7477 7627 6000 7116) (7477 7627 6000 7927) (7477 7627 6966 6150) (7477 7627 6966 7116) (7477 7627 6966 7927) (7477 7627 7777 6150) (7477 7627 7777 7116) (7477 7627 7777 7927) (6666 6891 6100 6275) (6666 6891 6100 7241) (6666 6891 6100 8052) (6666 6891 7066 6275) (6666 6891 7066 7241) (6666 6891 7066 8052) (6666 6891 7877 6275) (6666 6891 7877 7241) (6666 6891 7877 8052) (6666 7702 6100 6275) (6666 7702 6100 7241) (6666 7702 6100 8052) (6666 7702 7066 6275) (6666 7702 7066 7241) (6666 7702 7066 8052) (6666 7702 7877 6275) (6666 7702 7877 7241) (6666 7702 7877 8052) (7477 6891 6100 6275) (7477 6891 6100 7241) (7477 6891 6100 8052) (7477 6891 7066 6275) (7477 6891 7066 7241) (7477 6891 7066 8052) (7477 6891 7877 6275) (7477 6891 7877 7241) (7477 6891 7877 8052) (7477 7702 6100 6275) (7477 7702 6100 7241) (7477 7702 6100 8052) (7477 7702 7066 6275) (7477 7702 7066 7241) (7477 7702 7066 8052) (7477 7702 7877 6275) (7477 7702 7877 7241) (7477 7702 7877 8052) (6716 6866 6050 6200) (6716 6866 6050 7166) (6716 6866 6050 7977) (6716 6866 7016 6200) (6716 6866 7016 7166) (6716 6866 7016 7977) (6716 6866 7827 6200) (6716 6866 7827 7166) (6716 6866 7827 7977) (6716 7677 6050 6200) (6716 7677 6050 7166) (6716 7677 6050 7977) (6716 7677 7016 6200) (6716 7677 7016 7166) (6716 7677 7016 7977) (6716 7677 7827 6200) (6716 7677 7827 7166) (6716 7677 7827 7977) (7527 6866 6050 6200) (7527 6866 6050 7166) (7527 6866 6050 7977) (7527 6866 7016 6200) (7527 6866 7016 7166) (7527 6866 7016 7977) (7527 6866 7827 6200) (7527 6866 7827 7166) (7527 6866 7827 7977) (7527 7677 6050 6200) (7527 7677 6050 7166) (7527 7677 6050 7977) (7527 7677 7016 6200) (7527 7677 7016 7166) (7527 7677 7016 7977) (7527 7677 7827 6200) (7527 7677 7827 7166) (7527 7677 7827 7977) (6716 6941 6150 6325) (6716 6941 6150 7291) (6716 6941 6150 8102) (6716 6941 7116 6325) (6716 6941 7116 7291) (6716 6941 7116 8102) (6716 6941 7927 6325) (6716 6941 7927 7291) (6716 6941 7927 8102) (6716 7752 6150 6325) (6716 7752 6150 7291) (6716 7752 6150 8102) (6716 7752 7116 6325) (6716 7752 7116 7291) (6716 7752 7116 8102) (6716 7752 7927 6325) (6716 7752 7927 7291) (6716 7752 7927 8102) (7527 6941 6150 6325) (7527 6941 6150 7291) (7527 6941 6150 8102) (7527 6941 7116 6325) (7527 6941 7116 7291) (7527 6941 7116 8102) (7527 6941 7927 6325) (7527 6941 7927 7291) (7527 6941 7927 8102) (7527 7752 6150 6325) (7527 7752 6150 7291) (7527 7752 6150 8102) (7527 7752 7116 6325) (7527 7752 7116 7291) (7527 7752 7116 8102) (7527 7752 7927 6325) (7527 7752 7927 7291) (7527 7752 7927 8102) (6766 6916 6100 6250) (6766 6916 6100 7216) (6766 6916 6100 8027) (6766 6916 7066 6250) (6766 6916 7066 7216) (6766 6916 7066 8027) (6766 6916 7877 6250) (6766 6916 7877 7216) (6766 6916 7877 8027) (6766 7727 6100 6250) (6766 7727 6100 7216) (6766 7727 6100 8027) (6766 7727 7066 6250) (6766 7727 7066 7216) (6766 7727 7066 8027) (6766 7727 7877 6250) (6766 7727 7877 7216) (6766 7727 7877 8027) (7577 6916 6100 6250) (7577 6916 6100 7216) (7577 6916 6100 8027) (7577 6916 7066 6250) (7577 6916 7066 7216) (7577 6916 7066 8027) (7577 6916 7877 6250) (7577 6916 7877 7216) (7577 6916 7877 8027) (7577 7727 6100 6250) (7577 7727 6100 7216) (7577 7727 6100 8027) (7577 7727 7066 6250) (7577 7727 7066 7216) (7577 7727 7066 8027) (7577 7727 7877 6250) (7577 7727 7877 7216) (7577 7727 7877 8027) (6766 6025 6200 6375) (6766 6025 6200 7341) (6766 6025 6200 8152) (6766 6025 7166 6375) (6766 6025 7166 7341) (6766 6025 7166 8152) (6766 6025 7977 6375) (6766 6025 7977 7341) (6766 6025 7977 8152) (6766 6991 6200 6375) (6766 6991 6200 7341) (6766 6991 6200 8152) (6766 6991 7166 6375) (6766 6991 7166 7341) (6766 6991 7166 8152) (6766 6991 7977 6375) (6766 6991 7977 7341) (6766 6991 7977 8152) (6766 7802 6200 6375) (6766 7802 6200 7341) (6766 7802 6200 8152) (6766 7802 7166 6375) (6766 7802 7166 7341) (6766 7802 7166 8152) (6766 7802 7977 6375) (6766 7802 7977 7341) (6766 7802 7977 8152) (7577 6025 6200 6375) (7577 6025 6200 7341) (7577 6025 6200 8152) (7577 6025 7166 6375) (7577 6025 7166 7341) (7577 6025 7166 8152) (7577 6025 7977 6375) (7577 6025 7977 7341) (7577 6025 7977 8152) (7577 6991 6200 6375) (7577 6991 6200 7341) (7577 6991 6200 8152) (7577 6991 7166 6375) (7577 6991 7166 7341) (7577 6991 7166 8152) (7577 6991 7977 6375) (7577 6991 7977 7341) (7577 6991 7977 8152) (7577 7802 6200 6375) (7577 7802 6200 7341) (7577 7802 6200 8152) (7577 7802 7166 6375) (7577 7802 7166 7341) (7577 7802 7166 8152) (7577 7802 7977 6375) (7577 7802 7977 7341) (7577 7802 7977 8152) (6816 6000 6150 6300) (6816 6000 6150 7266) (6816 6000 6150 8077) (6816 6000 7116 6300) (6816 6000 7116 7266) (6816 6000 7116 8077) (6816 6000 7927 6300) (6816 6000 7927 7266) (6816 6000 7927 8077) (6816 6966 6150 6300) (6816 6966 6150 7266) (6816 6966 6150 8077) (6816 6966 7116 6300) (6816 6966 7116 7266) (6816 6966 7116 8077) (6816 6966 7927 6300) (6816 6966 7927 7266) (6816 6966 7927 8077) (6816 7777 6150 6300) (6816 7777 6150 7266) (6816 7777 6150 8077) (6816 7777 7116 6300) (6816 7777 7116 7266) (6816 7777 7116 8077) (6816 7777 7927 6300) (6816 7777 7927 7266) (6816 7777 7927 8077) (7627 6000 6150 6300) (7627 6000 6150 7266) (7627 6000 6150 8077) (7627 6000 7116 6300) (7627 6000 7116 7266) (7627 6000 7116 8077) (7627 6000 7927 6300) (7627 6000 7927 7266) (7627 6000 7927 8077) (7627 6966 6150 6300) (7627 6966 6150 7266) (7627 6966 6150 8077) (7627 6966 7116 6300) (7627 6966 7116 7266) (7627 6966 7116 8077) (7627 6966 7927 6300) (7627 6966 7927 7266) (7627 6966 7927 8077) (7627 7777 6150 6300) (7627 7777 6150 7266) (7627 7777 6150 8077) (7627 7777 7116 6300) (7627 7777 7116 7266) (7627 7777 7116 8077) (7627 7777 7927 6300) (7627 7777 7927 7266) (7627 7777 7927 8077) (6816 6075 6250 6425) (6816 6075 6250 7391) (6816 6075 6250 8202) (6816 6075 7216 6425) (6816 6075 7216 7391) (6816 6075 7216 8202) (6816 6075 8027 6425) (6816 6075 8027 7391) (6816 6075 8027 8202) (6816 7041 6250 6425) (6816 7041 6250 7391) (6816 7041 6250 8202) (6816 7041 7216 6425) (6816 7041 7216 7391) (6816 7041 7216 8202) (6816 7041 8027 6425) (6816 7041 8027 7391) (6816 7041 8027 8202) (6816 7852 6250 6425) (6816 7852 6250 7391) (6816 7852 6250 8202) (6816 7852 7216 6425) (6816 7852 7216 7391) (6816 7852 7216 8202) (6816 7852 8027 6425) (6816 7852 8027 7391) (6816 7852 8027 8202) (7627 6075 6250 6425) (7627 6075 6250 7391) (7627 6075 6250 8202) (7627 6075 7216 6425) (7627 6075 7216 7391) (7627 6075 7216 8202) (7627 6075 8027 6425) (7627 6075 8027 7391) (7627 6075 8027 8202) (7627 7041 6250 6425) (7627 7041 6250 7391) (7627 7041 6250 8202) (7627 7041 7216 6425) (7627 7041 7216 7391) (7627 7041 7216 8202) (7627 7041 8027 6425) (7627 7041 8027 7391) (7627 7041 8027 8202) (7627 7852 6250 6425) (7627 7852 6250 7391) (7627 7852 6250 8202) (7627 7852 7216 6425) (7627 7852 7216 7391) (7627 7852 7216 8202) (7627 7852 8027 6425) (7627 7852 8027 7391) (7627 7852 8027 8202) (6866 6050 6200 6350) (6866 6050 6200 7316) (6866 6050 6200 8127) (6866 6050 7166 6350) (6866 6050 7166 7316) (6866 6050 7166 8127) (6866 6050 7977 6350) (6866 6050 7977 7316) (6866 6050 7977 8127) (6866 7016 6200 6350) (6866 7016 6200 7316) (6866 7016 6200 8127) (6866 7016 7166 6350) (6866 7016 7166 7316) (6866 7016 7166 8127) (6866 7016 7977 6350) (6866 7016 7977 7316) (6866 7016 7977 8127) (6866 7827 6200 6350) (6866 7827 6200 7316) (6866 7827 6200 8127) (6866 7827 7166 6350) (6866 7827 7166 7316) (6866 7827 7166 8127) (6866 7827 7977 6350) (6866 7827 7977 7316) (6866 7827 7977 8127) (7677 6050 6200 6350) (7677 6050 6200 7316) (7677 6050 6200 8127) (7677 6050 7166 6350) (7677 6050 7166 7316) (7677 6050 7166 8127) (7677 6050 7977 6350) (7677 6050 7977 7316) (7677 6050 7977 8127) (7677 7016 6200 6350) (7677 7016 6200 7316) (7677 7016 6200 8127) (7677 7016 7166 6350) (7677 7016 7166 7316) (7677 7016 7166 8127) (7677 7016 7977 6350) (7677 7016 7977 7316) (7677 7016 7977 8127) (7677 7827 6200 6350) (7677 7827 6200 7316) (7677 7827 6200 8127) (7677 7827 7166 6350) (7677 7827 7166 7316) (7677 7827 7166 8127) (7677 7827 7977 6350) (7677 7827 7977 7316) (7677 7827 7977 8127) (6866 6125 6300 6475) (6866 6125 6300 7441) (6866 6125 6300 8252) (6866 6125 7266 6475) (6866 6125 7266 7441) (6866 6125 7266 8252) (6866 6125 8077 6475) (6866 6125 8077 7441) (6866 6125 8077 8252) (6866 7091 6300 6475) (6866 7091 6300 7441) (6866 7091 6300 8252) (6866 7091 7266 6475) (6866 7091 7266 7441) (6866 7091 7266 8252) (6866 7091 8077 6475) (6866 7091 8077 7441) (6866 7091 8077 8252) (6866 7902 6300 6475) (6866 7902 6300 7441) (6866 7902 6300 8252) (6866 7902 7266 6475) (6866 7902 7266 7441) (6866 7902 7266 8252) (6866 7902 8077 6475) (6866 7902 8077 7441) (6866 7902 8077 8252) (7677 6125 6300 6475) (7677 6125 6300 7441) (7677 6125 6300 8252) (7677 6125 7266 6475) (7677 6125 7266 7441) (7677 6125 7266 8252) (7677 6125 8077 6475) (7677 6125 8077 7441) (7677 6125 8077 8252) (7677 7091 6300 6475) (7677 7091 6300 7441) (7677 7091 6300 8252) (7677 7091 7266 6475) (7677 7091 7266 7441) (7677 7091 7266 8252) (7677 7091 8077 6475) (7677 7091 8077 7441) (7677 7091 8077 8252) (7677 7902 6300 6475) (7677 7902 6300 7441) (7677 7902 6300 8252) (7677 7902 7266 6475) (7677 7902 7266 7441) (7677 7902 7266 8252) (7677 7902 8077 6475) (7677 7902 8077 7441) (7677 7902 8077 8252) (6916 6100 6250 6400) (6916 6100 6250 7366) (6916 6100 6250 8177) (6916 6100 7216 6400) (6916 6100 7216 7366) (6916 6100 7216 8177) (6916 6100 8027 6400) (6916 6100 8027 7366) (6916 6100 8027 8177) (6916 7066 6250 6400) (6916 7066 6250 7366) (6916 7066 6250 8177) (6916 7066 7216 6400) (6916 7066 7216 7366) (6916 7066 7216 8177) (6916 7066 8027 6400) (6916 7066 8027 7366) (6916 7066 8027 8177) (6916 7877 6250 6400) (6916 7877 6250 7366) (6916 7877 6250 8177) (6916 7877 7216 6400) (6916 7877 7216 7366) (6916 7877 7216 8177) (6916 7877 8027 6400) (6916 7877 8027 7366) (6916 7877 8027 8177) (7727 6100 6250 6400) (7727 6100 6250 7366) (7727 6100 6250 8177) (7727 6100 7216 6400) (7727 6100 7216 7366) (7727 6100 7216 8177) (7727 6100 8027 6400) (7727 6100 8027 7366) (7727 6100 8027 8177) (7727 7066 6250 6400) (7727 7066 6250 7366) (7727 7066 6250 8177) (7727 7066 7216 6400) (7727 7066 7216 7366) (7727 7066 7216 8177) (7727 7066 8027 6400) (7727 7066 8027 7366) (7727 7066 8027 8177) (7727 7877 6250 6400) (7727 7877 6250 7366) (7727 7877 6250 8177) (7727 7877 7216 6400) (7727 7877 7216 7366) (7727 7877 7216 8177) (7727 7877 8027 6400) (7727 7877 8027 7366) (7727 7877 8027 8177) (6916 6175 6350 6525) (6916 6175 6350 7491) (6916 6175 6350 8302) (6916 6175 7316 6525) (6916 6175 7316 7491) (6916 6175 7316 8302) (6916 6175 8127 6525) (6916 6175 8127 7491) (6916 6175 8127 8302) (6916 7141 6350 6525) (6916 7141 6350 7491) (6916 7141 6350 8302) (6916 7141 7316 6525) (6916 7141 7316 7491) (6916 7141 7316 8302) (6916 7141 8127 6525) (6916 7141 8127 7491) (6916 7141 8127 8302) (6916 7952 6350 6525) (6916 7952 6350 7491) (6916 7952 6350 8302) (6916 7952 7316 6525) (6916 7952 7316 7491) (6916 7952 7316 8302) (6916 7952 8127 6525) (6916 7952 8127 7491) (6916 7952 8127 8302) (7727 6175 6350 6525) (7727 6175 6350 7491) (7727 6175 6350 8302) (7727 6175 7316 6525) (7727 6175 7316 7491) (7727 6175 7316 8302) (7727 6175 8127 6525) (7727 6175 8127 7491) (7727 6175 8127 8302) (7727 7141 6350 6525) (7727 7141 6350 7491) (7727 7141 6350 8302) (7727 7141 7316 6525) (7727 7141 7316 7491) (7727 7141 7316 8302) (7727 7141 8127 6525) (7727 7141 8127 7491) (7727 7141 8127 8302) (7727 7952 6350 6525) (7727 7952 6350 7491) (7727 7952 6350 8302) (7727 7952 7316 6525) (7727 7952 7316 7491) (7727 7952 7316 8302) (7727 7952 8127 6525) (7727 7952 8127 7491) (7727 7952 8127 8302) (6000 6150 6300 6450) (6000 6150 6300 7416) (6000 6150 6300 8227) (6000 6150 7266 6450) (6000 6150 7266 7416) (6000 6150 7266 8227) (6000 6150 8077 6450) (6000 6150 8077 7416) (6000 6150 8077 8227) (6000 7116 6300 6450) (6000 7116 6300 7416) (6000 7116 6300 8227) (6000 7116 7266 6450) (6000 7116 7266 7416) (6000 7116 7266 8227) (6000 7116 8077 6450) (6000 7116 8077 7416) (6000 7116 8077 8227) (6000 7927 6300 6450) (6000 7927 6300 7416) (6000 7927 6300 8227) (6000 7927 7266 6450) (6000 7927 7266 7416) (6000 7927 7266 8227) (6000 7927 8077 6450) (6000 7927 8077 7416) (6000 7927 8077 8227) (6966 6150 6300 6450) (6966 6150 6300 7416) (6966 6150 6300 8227) (6966 6150 7266 6450) (6966 6150 7266 7416) (6966 6150 7266 8227) (6966 6150 8077 6450) (6966 6150 8077 7416) (6966 6150 8077 8227) (6966 7116 6300 6450) (6966 7116 6300 7416) (6966 7116 6300 8227) (6966 7116 7266 6450) (6966 7116 7266 7416) (6966 7116 7266 8227) (6966 7116 8077 6450) (6966 7116 8077 7416) (6966 7116 8077 8227) (6966 7927 6300 6450) (6966 7927 6300 7416) (6966 7927 6300 8227) (6966 7927 7266 6450) (6966 7927 7266 7416) (6966 7927 7266 8227) (6966 7927 8077 6450) (6966 7927 8077 7416) (6966 7927 8077 8227) (7777 6150 6300 6450) (7777 6150 6300 7416) (7777 6150 6300 8227) (7777 6150 7266 6450) (7777 6150 7266 7416) (7777 6150 7266 8227) (7777 6150 8077 6450) (7777 6150 8077 7416) (7777 6150 8077 8227) (7777 7116 6300 6450) (7777 7116 6300 7416) (7777 7116 6300 8227) (7777 7116 7266 6450) (7777 7116 7266 7416) (7777 7116 7266 8227) (7777 7116 8077 6450) (7777 7116 8077 7416) (7777 7116 8077 8227) (7777 7927 6300 6450) (7777 7927 6300 7416) (7777 7927 6300 8227) (7777 7927 7266 6450) (7777 7927 7266 7416) (7777 7927 7266 8227) (7777 7927 8077 6450) (7777 7927 8077 7416) (7777 7927 8077 8227) (6000 6225 6400 6575) (6000 6225 6400 7541) (6000 6225 6400 8352) (6000 6225 7366 6575) (6000 6225 7366 7541) (6000 6225 7366 8352) (6000 6225 8177 6575) (6000 6225 8177 7541) (6000 6225 8177 8352) (6000 7191 6400 6575) (6000 7191 6400 7541) (6000 7191 6400 8352) (6000 7191 7366 6575) (6000 7191 7366 7541) (6000 7191 7366 8352) (6000 7191 8177 6575) (6000 7191 8177 7541) (6000 7191 8177 8352) (6000 8002 6400 6575) (6000 8002 6400 7541) (6000 8002 6400 8352) (6000 8002 7366 6575) (6000 8002 7366 7541) (6000 8002 7366 8352) (6000 8002 8177 6575) (6000 8002 8177 7541) (6000 8002 8177 8352) (6966 6225 6400 6575) (6966 6225 6400 7541) (6966 6225 6400 8352) (6966 6225 7366 6575) (6966 6225 7366 7541) (6966 6225 7366 8352) (6966 6225 8177 6575) (6966 6225 8177 7541) (6966 6225 8177 8352) (6966 7191 6400 6575) (6966 7191 6400 7541) (6966 7191 6400 8352) (6966 7191 7366 6575) (6966 7191 7366 7541) (6966 7191 7366 8352) (6966 7191 8177 6575) (6966 7191 8177 7541) (6966 7191 8177 8352) (6966 8002 6400 6575) (6966 8002 6400 7541) (6966 8002 6400 8352) (6966 8002 7366 6575) (6966 8002 7366 7541) (6966 8002 7366 8352) (6966 8002 8177 6575) (6966 8002 8177 7541) (6966 8002 8177 8352) (7777 6225 6400 6575) (7777 6225 6400 7541) (7777 6225 6400 8352) (7777 6225 7366 6575) (7777 6225 7366 7541) (7777 6225 7366 8352) (7777 6225 8177 6575) (7777 6225 8177 7541) (7777 6225 8177 8352) (7777 7191 6400 6575) (7777 7191 6400 7541) (7777 7191 6400 8352) (7777 7191 7366 6575) (7777 7191 7366 7541) (7777 7191 7366 8352) (7777 7191 8177 6575) (7777 7191 8177 7541) (7777 7191 8177 8352) (7777 8002 6400 6575) (7777 8002 6400 7541) (7777 8002 6400 8352) (7777 8002 7366 6575) (7777 8002 7366 7541) (7777 8002 7366 8352) (7777 8002 8177 6575) (7777 8002 8177 7541) (7777 8002 8177 8352) (6050 6200 6350 6500) (6050 6200 6350 7466) (6050 6200 6350 8277) (6050 6200 7316 6500) (6050 6200 7316 7466) (6050 6200 7316 8277) (6050 6200 8127 6500) (6050 6200 8127 7466) (6050 6200 8127 8277) (6050 7166 6350 6500) (6050 7166 6350 7466) (6050 7166 6350 8277) (6050 7166 7316 6500) (6050 7166 7316 7466) (6050 7166 7316 8277) (6050 7166 8127 6500) (6050 7166 8127 7466) (6050 7166 8127 8277) (6050 7977 6350 6500) (6050 7977 6350 7466) (6050 7977 6350 8277) (6050 7977 7316 6500) (6050 7977 7316 7466) (6050 7977 7316 8277) (6050 7977 8127 6500) (6050 7977 8127 7466) (6050 7977 8127 8277) (7016 6200 6350 6500) (7016 6200 6350 7466) (7016 6200 6350 8277) (7016 6200 7316 6500) (7016 6200 7316 7466) (7016 6200 7316 8277) (7016 6200 8127 6500) (7016 6200 8127 7466) (7016 6200 8127 8277) (7016 7166 6350 6500) (7016 7166 6350 7466) (7016 7166 6350 8277) (7016 7166 7316 6500) (7016 7166 7316 7466) (7016 7166 7316 8277) (7016 7166 8127 6500) (7016 7166 8127 7466) (7016 7166 8127 8277) (7016 7977 6350 6500) (7016 7977 6350 7466) (7016 7977 6350 8277) (7016 7977 7316 6500) (7016 7977 7316 7466) (7016 7977 7316 8277) (7016 7977 8127 6500) (7016 7977 8127 7466) (7016 7977 8127 8277) (7827 6200 6350 6500) (7827 6200 6350 7466) (7827 6200 6350 8277) (7827 6200 7316 6500) (7827 6200 7316 7466) (7827 6200 7316 8277) (7827 6200 8127 6500) (7827 6200 8127 7466) (7827 6200 8127 8277) (7827 7166 6350 6500) (7827 7166 6350 7466) (7827 7166 6350 8277) (7827 7166 7316 6500) (7827 7166 7316 7466) (7827 7166 7316 8277) (7827 7166 8127 6500) (7827 7166 8127 7466) (7827 7166 8127 8277) (7827 7977 6350 6500) (7827 7977 6350 7466) (7827 7977 6350 8277) (7827 7977 7316 6500) (7827 7977 7316 7466) (7827 7977 7316 8277) (7827 7977 8127 6500) (7827 7977 8127 7466) (7827 7977 8127 8277) (6050 6275 6450 6625) (6050 6275 6450 7591) (6050 6275 7416 6625) (6050 6275 7416 7591) (6050 6275 8227 6625) (6050 6275 8227 7591) (6050 7241 6450 6625) (6050 7241 6450 7591) (6050 7241 7416 6625) (6050 7241 7416 7591) (6050 7241 8227 6625) (6050 7241 8227 7591) (6050 8052 6450 6625) (6050 8052 6450 7591) (6050 8052 7416 6625) (6050 8052 7416 7591) (6050 8052 8227 6625) (6050 8052 8227 7591) (7016 6275 6450 6625) (7016 6275 6450 7591) (7016 6275 7416 6625) (7016 6275 7416 7591) (7016 6275 8227 6625) (7016 6275 8227 7591) (7016 7241 6450 6625) (7016 7241 6450 7591) (7016 7241 7416 6625) (7016 7241 7416 7591) (7016 7241 8227 6625) (7016 7241 8227 7591) (7016 8052 6450 6625) (7016 8052 6450 7591) (7016 8052 7416 6625) (7016 8052 7416 7591) (7016 8052 8227 6625) (7016 8052 8227 7591) (7827 6275 6450 6625) (7827 6275 6450 7591) (7827 6275 7416 6625) (7827 6275 7416 7591) (7827 6275 8227 6625) (7827 6275 8227 7591) (7827 7241 6450 6625) (7827 7241 6450 7591) (7827 7241 7416 6625) (7827 7241 7416 7591) (7827 7241 8227 6625) (7827 7241 8227 7591) (7827 8052 6450 6625) (7827 8052 6450 7591) (7827 8052 7416 6625) (7827 8052 7416 7591) (7827 8052 8227 6625) (7827 8052 8227 7591) (6100 6250 6400 6550) (6100 6250 6400 7516) (6100 6250 6400 8327) (6100 6250 7366 6550) (6100 6250 7366 7516) (6100 6250 7366 8327) (6100 6250 8177 6550) (6100 6250 8177 7516) (6100 6250 8177 8327) (6100 7216 6400 6550) (6100 7216 6400 7516) (6100 7216 6400 8327) (6100 7216 7366 6550) (6100 7216 7366 7516) (6100 7216 7366 8327) (6100 7216 8177 6550) (6100 7216 8177 7516) (6100 7216 8177 8327) (6100 8027 6400 6550) (6100 8027 6400 7516) (6100 8027 6400 8327) (6100 8027 7366 6550) (6100 8027 7366 7516) (6100 8027 7366 8327) (6100 8027 8177 6550) (6100 8027 8177 7516) (6100 8027 8177 8327) (7066 6250 6400 6550) (7066 6250 6400 7516) (7066 6250 6400 8327) (7066 6250 7366 6550) (7066 6250 7366 7516) (7066 6250 7366 8327) (7066 6250 8177 6550) (7066 6250 8177 7516) (7066 6250 8177 8327) (7066 7216 6400 6550) (7066 7216 6400 7516) (7066 7216 6400 8327) (7066 7216 7366 6550) (7066 7216 7366 7516) (7066 7216 7366 8327) (7066 7216 8177 6550) (7066 7216 8177 7516) (7066 7216 8177 8327) (7066 8027 6400 6550) (7066 8027 6400 7516) (7066 8027 6400 8327) (7066 8027 7366 6550) (7066 8027 7366 7516) (7066 8027 7366 8327) (7066 8027 8177 6550) (7066 8027 8177 7516) (7066 8027 8177 8327) (7877 6250 6400 6550) (7877 6250 6400 7516) (7877 6250 6400 8327) (7877 6250 7366 6550) (7877 6250 7366 7516) (7877 6250 7366 8327) (7877 6250 8177 6550) (7877 6250 8177 7516) (7877 6250 8177 8327) (7877 7216 6400 6550) (7877 7216 6400 7516) (7877 7216 6400 8327) (7877 7216 7366 6550) (7877 7216 7366 7516) (7877 7216 7366 8327) (7877 7216 8177 6550) (7877 7216 8177 7516) (7877 7216 8177 8327) (7877 8027 6400 6550) (7877 8027 6400 7516) (7877 8027 6400 8327) (7877 8027 7366 6550) (7877 8027 7366 7516) (7877 8027 7366 8327) (7877 8027 8177 6550) (7877 8027 8177 7516) (7877 8027 8177 8327) (6100 6325 6500 6675) (6100 6325 6500 7641) (6100 6325 7466 6675) (6100 6325 7466 7641) (6100 6325 8277 6675) (6100 6325 8277 7641) (6100 7291 6500 6675) (6100 7291 6500 7641) (6100 7291 7466 6675) (6100 7291 7466 7641) (6100 7291 8277 6675) (6100 7291 8277 7641) (6100 8102 6500 6675) (6100 8102 6500 7641) (6100 8102 7466 6675) (6100 8102 7466 7641) (6100 8102 8277 6675) (6100 8102 8277 7641) (7066 6325 6500 6675) (7066 6325 6500 7641) (7066 6325 7466 6675) (7066 6325 7466 7641) (7066 6325 8277 6675) (7066 6325 8277 7641) (7066 7291 6500 6675) (7066 7291 6500 7641) (7066 7291 7466 6675) (7066 7291 7466 7641) (7066 7291 8277 6675) (7066 7291 8277 7641) (7066 8102 6500 6675) (7066 8102 6500 7641) (7066 8102 7466 6675) (7066 8102 7466 7641) (7066 8102 8277 6675) (7066 8102 8277 7641) (7877 6325 6500 6675) (7877 6325 6500 7641) (7877 6325 7466 6675) (7877 6325 7466 7641) (7877 6325 8277 6675) (7877 6325 8277 7641) (7877 7291 6500 6675) (7877 7291 6500 7641) (7877 7291 7466 6675) (7877 7291 7466 7641) (7877 7291 8277 6675) (7877 7291 8277 7641) (7877 8102 6500 6675) (7877 8102 6500 7641) (7877 8102 7466 6675) (7877 8102 7466 7641) (7877 8102 8277 6675) (7877 8102 8277 7641) (6150 6300 6450 6600) (6150 6300 6450 7566) (6150 6300 6450 8377) (6150 6300 7416 6600) (6150 6300 7416 7566) (6150 6300 7416 8377) (6150 6300 8227 6600) (6150 6300 8227 7566) (6150 6300 8227 8377) (6150 7266 6450 6600) (6150 7266 6450 7566) (6150 7266 6450 8377) (6150 7266 7416 6600) (6150 7266 7416 7566) (6150 7266 7416 8377) (6150 7266 8227 6600) (6150 7266 8227 7566) (6150 7266 8227 8377) (6150 8077 6450 6600) (6150 8077 6450 7566) (6150 8077 6450 8377) (6150 8077 7416 6600) (6150 8077 7416 7566) (6150 8077 7416 8377) (6150 8077 8227 6600) (6150 8077 8227 7566) (6150 8077 8227 8377) (7116 6300 6450 6600) (7116 6300 6450 7566) (7116 6300 6450 8377) (7116 6300 7416 6600) (7116 6300 7416 7566) (7116 6300 7416 8377) (7116 6300 8227 6600) (7116 6300 8227 7566) (7116 6300 8227 8377) (7116 7266 6450 6600) (7116 7266 6450 7566) (7116 7266 6450 8377) (7116 7266 7416 6600) (7116 7266 7416 7566) (7116 7266 7416 8377) (7116 7266 8227 6600) (7116 7266 8227 7566) (7116 7266 8227 8377) (7116 8077 6450 6600) (7116 8077 6450 7566) (7116 8077 6450 8377) (7116 8077 7416 6600) (7116 8077 7416 7566) (7116 8077 7416 8377) (7116 8077 8227 6600) (7116 8077 8227 7566) (7116 8077 8227 8377) (7927 6300 6450 6600) (7927 6300 6450 7566) (7927 6300 6450 8377) (7927 6300 7416 6600) (7927 6300 7416 7566) (7927 6300 7416 8377) (7927 6300 8227 6600) (7927 6300 8227 7566) (7927 6300 8227 8377) (7927 7266 6450 6600) (7927 7266 6450 7566) (7927 7266 6450 8377) (7927 7266 7416 6600) (7927 7266 7416 7566) (7927 7266 7416 8377) (7927 7266 8227 6600) (7927 7266 8227 7566) (7927 7266 8227 8377) (7927 8077 6450 6600) (7927 8077 6450 7566) (7927 8077 6450 8377) (7927 8077 7416 6600) (7927 8077 7416 7566) (7927 8077 7416 8377) (7927 8077 8227 6600) (7927 8077 8227 7566) (7927 8077 8227 8377) (6150 6375 6550 6725) (6150 6375 6550 7691) (6150 6375 7516 6725) (6150 6375 7516 7691) (6150 6375 8327 6725) (6150 6375 8327 7691) (6150 7341 6550 6725) (6150 7341 6550 7691) (6150 7341 7516 6725) (6150 7341 7516 7691) (6150 7341 8327 6725) (6150 7341 8327 7691) (6150 8152 6550 6725) (6150 8152 6550 7691) (6150 8152 7516 6725) (6150 8152 7516 7691) (6150 8152 8327 6725) (6150 8152 8327 7691) (7116 6375 6550 6725) (7116 6375 6550 7691) (7116 6375 7516 6725) (7116 6375 7516 7691) (7116 6375 8327 6725) (7116 6375 8327 7691) (7116 7341 6550 6725) (7116 7341 6550 7691) (7116 7341 7516 6725) (7116 7341 7516 7691) (7116 7341 8327 6725) (7116 7341 8327 7691) (7116 8152 6550 6725) (7116 8152 6550 7691) (7116 8152 7516 6725) (7116 8152 7516 7691) (7116 8152 8327 6725) (7116 8152 8327 7691) (7927 6375 6550 6725) (7927 6375 6550 7691) (7927 6375 7516 6725) (7927 6375 7516 7691) (7927 6375 8327 6725) (7927 6375 8327 7691) (7927 7341 6550 6725) (7927 7341 6550 7691) (7927 7341 7516 6725) (7927 7341 7516 7691) (7927 7341 8327 6725) (7927 7341 8327 7691) (7927 8152 6550 6725) (7927 8152 6550 7691) (7927 8152 7516 6725) (7927 8152 7516 7691) (7927 8152 8327 6725) (7927 8152 8327 7691) (6200 6350 6500 6650) (6200 6350 6500 7616) (6200 6350 7466 6650) (6200 6350 7466 7616) (6200 6350 8277 6650) (6200 6350 8277 7616) (6200 7316 6500 6650) (6200 7316 6500 7616) (6200 7316 7466 6650) (6200 7316 7466 7616) (6200 7316 8277 6650) (6200 7316 8277 7616) (6200 8127 6500 6650) (6200 8127 6500 7616) (6200 8127 7466 6650) (6200 8127 7466 7616) (6200 8127 8277 6650) (6200 8127 8277 7616) (7166 6350 6500 6650) (7166 6350 6500 7616) (7166 6350 7466 6650) (7166 6350 7466 7616) (7166 6350 8277 6650) (7166 6350 8277 7616) (7166 7316 6500 6650) (7166 7316 6500 7616) (7166 7316 7466 6650) (7166 7316 7466 7616) (7166 7316 8277 6650) (7166 7316 8277 7616) (7166 8127 6500 6650) (7166 8127 6500 7616) (7166 8127 7466 6650) (7166 8127 7466 7616) (7166 8127 8277 6650) (7166 8127 8277 7616) (7977 6350 6500 6650) (7977 6350 6500 7616) (7977 6350 7466 6650) (7977 6350 7466 7616) (7977 6350 8277 6650) (7977 6350 8277 7616) (7977 7316 6500 6650) (7977 7316 6500 7616) (7977 7316 7466 6650) (7977 7316 7466 7616) (7977 7316 8277 6650) (7977 7316 8277 7616) (7977 8127 6500 6650) (7977 8127 6500 7616) (7977 8127 7466 6650) (7977 8127 7466 7616) (7977 8127 8277 6650) (7977 8127 8277 7616) (6200 6425 6600 6775) (6200 6425 6600 7741) (6200 6425 7566 6775) (6200 6425 7566 7741) (6200 6425 8377 6775) (6200 6425 8377 7741) (6200 7391 6600 6775) (6200 7391 6600 7741) (6200 7391 7566 6775) (6200 7391 7566 7741) (6200 7391 8377 6775) (6200 7391 8377 7741) (6200 8202 6600 6775) (6200 8202 6600 7741) (6200 8202 7566 6775) (6200 8202 7566 7741) (6200 8202 8377 6775) (6200 8202 8377 7741) (7166 6425 6600 6775) (7166 6425 6600 7741) (7166 6425 7566 6775) (7166 6425 7566 7741) (7166 6425 8377 6775) (7166 6425 8377 7741) (7166 7391 6600 6775) (7166 7391 6600 7741) (7166 7391 7566 6775) (7166 7391 7566 7741) (7166 7391 8377 6775) (7166 7391 8377 7741) (7166 8202 6600 6775) (7166 8202 6600 7741) (7166 8202 7566 6775) (7166 8202 7566 7741) (7166 8202 8377 6775) (7166 8202 8377 7741) (7977 6425 6600 6775) (7977 6425 6600 7741) (7977 6425 7566 6775) (7977 6425 7566 7741) (7977 6425 8377 6775) (7977 6425 8377 7741) (7977 7391 6600 6775) (7977 7391 6600 7741) (7977 7391 7566 6775) (7977 7391 7566 7741) (7977 7391 8377 6775) (7977 7391 8377 7741) (7977 8202 6600 6775) (7977 8202 6600 7741) (7977 8202 7566 6775) (7977 8202 7566 7741) (7977 8202 8377 6775) (7977 8202 8377 7741) (6250 6400 6550 6700) (6250 6400 6550 7666) (6250 6400 7516 6700) (6250 6400 7516 7666) (6250 6400 8327 6700) (6250 6400 8327 7666) (6250 7366 6550 6700) (6250 7366 6550 7666) (6250 7366 7516 6700) (6250 7366 7516 7666) (6250 7366 8327 6700) (6250 7366 8327 7666) (6250 8177 6550 6700) (6250 8177 6550 7666) (6250 8177 7516 6700) (6250 8177 7516 7666) (6250 8177 8327 6700) (6250 8177 8327 7666) (7216 6400 6550 6700) (7216 6400 6550 7666) (7216 6400 7516 6700) (7216 6400 7516 7666) (7216 6400 8327 6700) (7216 6400 8327 7666) (7216 7366 6550 6700) (7216 7366 6550 7666) (7216 7366 7516 6700) (7216 7366 7516 7666) (7216 7366 8327 6700) (7216 7366 8327 7666) (7216 8177 6550 6700) (7216 8177 6550 7666) (7216 8177 7516 6700) (7216 8177 7516 7666) (7216 8177 8327 6700) (7216 8177 8327 7666) (8027 6400 6550 6700) (8027 6400 6550 7666) (8027 6400 7516 6700) (8027 6400 7516 7666) (8027 6400 8327 6700) (8027 6400 8327 7666) (8027 7366 6550 6700) (8027 7366 6550 7666) (8027 7366 7516 6700) (8027 7366 7516 7666) (8027 7366 8327 6700) (8027 7366 8327 7666) (8027 8177 6550 6700) (8027 8177 6550 7666) (8027 8177 7516 6700) (8027 8177 7516 7666) (8027 8177 8327 6700) (8027 8177 8327 7666) (6250 6475 6650 6825) (6250 6475 6650 7791) (6250 6475 7616 6825) (6250 6475 7616 7791) (6250 7441 6650 6825) (6250 7441 6650 7791) (6250 7441 7616 6825) (6250 7441 7616 7791) (6250 8252 6650 6825) (6250 8252 6650 7791) (6250 8252 7616 6825) (6250 8252 7616 7791) (7216 6475 6650 6825) (7216 6475 6650 7791) (7216 6475 7616 6825) (7216 6475 7616 7791) (7216 7441 6650 6825) (7216 7441 6650 7791) (7216 7441 7616 6825) (7216 7441 7616 7791) (7216 8252 6650 6825) (7216 8252 6650 7791) (7216 8252 7616 6825) (7216 8252 7616 7791) (8027 6475 6650 6825) (8027 6475 6650 7791) (8027 6475 7616 6825) (8027 6475 7616 7791) (8027 7441 6650 6825) (8027 7441 6650 7791) (8027 7441 7616 6825) (8027 7441 7616 7791) (8027 8252 6650 6825) (8027 8252 6650 7791) (8027 8252 7616 6825) (8027 8252 7616 7791) (6300 6450 6600 6750) (6300 6450 6600 7716) (6300 6450 7566 6750) (6300 6450 7566 7716) (6300 6450 8377 6750) (6300 6450 8377 7716) (6300 7416 6600 6750) (6300 7416 6600 7716) (6300 7416 7566 6750) (6300 7416 7566 7716) (6300 7416 8377 6750) (6300 7416 8377 7716) (6300 8227 6600 6750) (6300 8227 6600 7716) (6300 8227 7566 6750) (6300 8227 7566 7716) (6300 8227 8377 6750) (6300 8227 8377 7716) (7266 6450 6600 6750) (7266 6450 6600 7716) (7266 6450 7566 6750) (7266 6450 7566 7716) (7266 6450 8377 6750) (7266 6450 8377 7716) (7266 7416 6600 6750) (7266 7416 6600 7716) (7266 7416 7566 6750) (7266 7416 7566 7716) (7266 7416 8377 6750) (7266 7416 8377 7716) (7266 8227 6600 6750) (7266 8227 6600 7716) (7266 8227 7566 6750) (7266 8227 7566 7716) (7266 8227 8377 6750) (7266 8227 8377 7716) (8077 6450 6600 6750) (8077 6450 6600 7716) (8077 6450 7566 6750) (8077 6450 7566 7716) (8077 6450 8377 6750) (8077 6450 8377 7716) (8077 7416 6600 6750) (8077 7416 6600 7716) (8077 7416 7566 6750) (8077 7416 7566 7716) (8077 7416 8377 6750) (8077 7416 8377 7716) (8077 8227 6600 6750) (8077 8227 6600 7716) (8077 8227 7566 6750) (8077 8227 7566 7716) (8077 8227 8377 6750) (8077 8227 8377 7716) (6300 6525 6700 6875) (6300 6525 6700 7841) (6300 6525 7666 6875) (6300 6525 7666 7841) (6300 7491 6700 6875) (6300 7491 6700 7841) (6300 7491 7666 6875) (6300 7491 7666 7841) (6300 8302 6700 6875) (6300 8302 6700 7841) (6300 8302 7666 6875) (6300 8302 7666 7841) (7266 6525 6700 6875) (7266 6525 6700 7841) (7266 6525 7666 6875) (7266 6525 7666 7841) (7266 7491 6700 6875) (7266 7491 6700 7841) (7266 7491 7666 6875) (7266 7491 7666 7841) (7266 8302 6700 6875) (7266 8302 6700 7841) (7266 8302 7666 6875) (7266 8302 7666 7841) (8077 6525 6700 6875) (8077 6525 6700 7841) (8077 6525 7666 6875) (8077 6525 7666 7841) (8077 7491 6700 6875) (8077 7491 6700 7841) (8077 7491 7666 6875) (8077 7491 7666 7841) (8077 8302 6700 6875) (8077 8302 6700 7841) (8077 8302 7666 6875) (8077 8302 7666 7841) (6350 6500 6650 6800) (6350 6500 6650 7766) (6350 6500 7616 6800) (6350 6500 7616 7766) (6350 7466 6650 6800) (6350 7466 6650 7766) (6350 7466 7616 6800) (6350 7466 7616 7766) (6350 8277 6650 6800) (6350 8277 6650 7766) (6350 8277 7616 6800) (6350 8277 7616 7766) (7316 6500 6650 6800) (7316 6500 6650 7766) (7316 6500 7616 6800) (7316 6500 7616 7766) (7316 7466 6650 6800) (7316 7466 6650 7766) (7316 7466 7616 6800) (7316 7466 7616 7766) (7316 8277 6650 6800) (7316 8277 6650 7766) (7316 8277 7616 6800) (7316 8277 7616 7766) (8127 6500 6650 6800) (8127 6500 6650 7766) (8127 6500 7616 6800) (8127 6500 7616 7766) (8127 7466 6650 6800) (8127 7466 6650 7766) (8127 7466 7616 6800) (8127 7466 7616 7766) (8127 8277 6650 6800) (8127 8277 6650 7766) (8127 8277 7616 6800) (8127 8277 7616 7766) (6350 6575 6750 6925) (6350 6575 6750 7891) (6350 6575 7716 6925) (6350 6575 7716 7891) (6350 7541 6750 6925) (6350 7541 6750 7891) (6350 7541 7716 6925) (6350 7541 7716 7891) (6350 8352 6750 6925) (6350 8352 6750 7891) (6350 8352 7716 6925) (6350 8352 7716 7891) (7316 6575 6750 6925) (7316 6575 6750 7891) (7316 6575 7716 6925) (7316 6575 7716 7891) (7316 7541 6750 6925) (7316 7541 6750 7891) (7316 7541 7716 6925) (7316 7541 7716 7891) (7316 8352 6750 6925) (7316 8352 6750 7891) (7316 8352 7716 6925) (7316 8352 7716 7891) (8127 6575 6750 6925) (8127 6575 6750 7891) (8127 6575 7716 6925) (8127 6575 7716 7891) (8127 7541 6750 6925) (8127 7541 6750 7891) (8127 7541 7716 6925) (8127 7541 7716 7891) (8127 8352 6750 6925) (8127 8352 6750 7891) (8127 8352 7716 6925) (8127 8352 7716 7891) (6400 6550 6700 6850) (6400 6550 6700 7816) (6400 6550 7666 6850) (6400 6550 7666 7816) (6400 7516 6700 6850) (6400 7516 6700 7816) (6400 7516 7666 6850) (6400 7516 7666 7816) (6400 8327 6700 6850) (6400 8327 6700 7816) (6400 8327 7666 6850) (6400 8327 7666 7816) (7366 6550 6700 6850) (7366 6550 6700 7816) (7366 6550 7666 6850) (7366 6550 7666 7816) (7366 7516 6700 6850) (7366 7516 6700 7816) (7366 7516 7666 6850) (7366 7516 7666 7816) (7366 8327 6700 6850) (7366 8327 6700 7816) (7366 8327 7666 6850) (7366 8327 7666 7816) (8177 6550 6700 6850) (8177 6550 6700 7816) (8177 6550 7666 6850) (8177 6550 7666 7816) (8177 7516 6700 6850) (8177 7516 6700 7816) (8177 7516 7666 6850) (8177 7516 7666 7816) (8177 8327 6700 6850) (8177 8327 6700 7816) (8177 8327 7666 6850) (8177 8327 7666 7816) (6400 6625 6800 6975) (6400 6625 6800 7941) (6400 6625 7766 6975) (6400 6625 7766 7941) (6400 7591 6800 6975) (6400 7591 6800 7941) (6400 7591 7766 6975) (6400 7591 7766 7941) (7366 6625 6800 6975) (7366 6625 6800 7941) (7366 6625 7766 6975) (7366 6625 7766 7941) (7366 7591 6800 6975) (7366 7591 6800 7941) (7366 7591 7766 6975) (7366 7591 7766 7941) (8177 6625 6800 6975) (8177 6625 6800 7941) (8177 6625 7766 6975) (8177 6625 7766 7941) (8177 7591 6800 6975) (8177 7591 6800 7941) (8177 7591 7766 6975) (8177 7591 7766 7941) (6450 6600 6750 6900) (6450 6600 6750 7866) (6450 6600 7716 6900) (6450 6600 7716 7866) (6450 7566 6750 6900) (6450 7566 6750 7866) (6450 7566 7716 6900) (6450 7566 7716 7866) (6450 8377 6750 6900) (6450 8377 6750 7866) (6450 8377 7716 6900) (6450 8377 7716 7866) (7416 6600 6750 6900) (7416 6600 6750 7866) (7416 6600 7716 6900) (7416 6600 7716 7866) (7416 7566 6750 6900) (7416 7566 6750 7866) (7416 7566 7716 6900) (7416 7566 7716 7866) (7416 8377 6750 6900) (7416 8377 6750 7866) (7416 8377 7716 6900) (7416 8377 7716 7866) (8227 6600 6750 6900) (8227 6600 6750 7866) (8227 6600 7716 6900) (8227 6600 7716 7866) (8227 7566 6750 6900) (8227 7566 6750 7866) (8227 7566 7716 6900) (8227 7566 7716 7866) (8227 8377 6750 6900) (8227 8377 6750 7866) (8227 8377 7716 6900) (8227 8377 7716 7866) (6450 6675 6850 7025) (6450 6675 6850 7991) (6450 6675 7816 7025) (6450 6675 7816 7991) (6450 7641 6850 7025) (6450 7641 6850 7991) (6450 7641 7816 7025) (6450 7641 7816 7991) (7416 6675 6850 7025) (7416 6675 6850 7991) (7416 6675 7816 7025) (7416 6675 7816 7991) (7416 7641 6850 7025) (7416 7641 6850 7991) (7416 7641 7816 7025) (7416 7641 7816 7991) (8227 6675 6850 7025) (8227 6675 6850 7991) (8227 6675 7816 7025) (8227 6675 7816 7991) (8227 7641 6850 7025) (8227 7641 6850 7991) (8227 7641 7816 7025) (8227 7641 7816 7991) (6500 6650 6800 6950) (6500 6650 6800 7916) (6500 6650 7766 6950) (6500 6650 7766 7916) (6500 7616 6800 6950) (6500 7616 6800 7916) (6500 7616 7766 6950) (6500 7616 7766 7916) (7466 6650 6800 6950) (7466 6650 6800 7916) (7466 6650 7766 6950) (7466 6650 7766 7916) (7466 7616 6800 6950) (7466 7616 6800 7916) (7466 7616 7766 6950) (7466 7616 7766 7916) (8277 6650 6800 6950) (8277 6650 6800 7916) (8277 6650 7766 6950) (8277 6650 7766 7916) (8277 7616 6800 6950) (8277 7616 6800 7916) (8277 7616 7766 6950) (8277 7616 7766 7916) (6500 6725 6900 7075) (6500 6725 6900 8041) (6500 6725 7866 7075) (6500 6725 7866 8041) (6500 7691 6900 7075) (6500 7691 6900 8041) (6500 7691 7866 7075) (6500 7691 7866 8041) (7466 6725 6900 7075) (7466 6725 6900 8041) (7466 6725 7866 7075) (7466 6725 7866 8041) (7466 7691 6900 7075) (7466 7691 6900 8041) (7466 7691 7866 7075) (7466 7691 7866 8041) (8277 6725 6900 7075) (8277 6725 6900 8041) (8277 6725 7866 7075) (8277 6725 7866 8041) (8277 7691 6900 7075) (8277 7691 6900 8041) (8277 7691 7866 7075) (8277 7691 7866 8041) (6550 6700 6850 7000) (6550 6700 6850 7966) (6550 6700 7816 7000) (6550 6700 7816 7966) (6550 7666 6850 7000) (6550 7666 6850 7966) (6550 7666 7816 7000) (6550 7666 7816 7966) (7516 6700 6850 7000) (7516 6700 6850 7966) (7516 6700 7816 7000) (7516 6700 7816 7966) (7516 7666 6850 7000) (7516 7666 6850 7966) (7516 7666 7816 7000) (7516 7666 7816 7966) (8327 6700 6850 7000) (8327 6700 6850 7966) (8327 6700 7816 7000) (8327 6700 7816 7966) (8327 7666 6850 7000) (8327 7666 6850 7966) (8327 7666 7816 7000) (8327 7666 7816 7966) (6550 6775 6950 7125) (6550 6775 6950 8091) (6550 6775 7916 7125) (6550 6775 7916 8091) (6550 7741 6950 7125) (6550 7741 6950 8091) (6550 7741 7916 7125) (6550 7741 7916 8091) (7516 6775 6950 7125) (7516 6775 6950 8091) (7516 6775 7916 7125) (7516 6775 7916 8091) (7516 7741 6950 7125) (7516 7741 6950 8091) (7516 7741 7916 7125) (7516 7741 7916 8091) (8327 6775 6950 7125) (8327 6775 6950 8091) (8327 6775 7916 7125) (8327 6775 7916 8091) (8327 7741 6950 7125) (8327 7741 6950 8091) (8327 7741 7916 7125) (8327 7741 7916 8091) (6600 6750 6900 7050) (6600 6750 6900 8016) (6600 6750 7866 7050) (6600 6750 7866 8016) (6600 7716 6900 7050) (6600 7716 6900 8016) (6600 7716 7866 7050) (6600 7716 7866 8016) (7566 6750 6900 7050) (7566 6750 6900 8016) (7566 6750 7866 7050) (7566 6750 7866 8016) (7566 7716 6900 7050) (7566 7716 6900 8016) (7566 7716 7866 7050) (7566 7716 7866 8016) (8377 6750 6900 7050) (8377 6750 6900 8016) (8377 6750 7866 7050) (8377 6750 7866 8016) (8377 7716 6900 7050) (8377 7716 6900 8016) (8377 7716 7866 7050) (8377 7716 7866 8016) (6600 6825 7000 7175) (6600 6825 7000 8141) (6600 6825 7966 7175) (6600 6825 7966 8141) (6600 7791 7000 7175) (6600 7791 7000 8141) (6600 7791 7966 7175) (6600 7791 7966 8141) (7566 6825 7000 7175) (7566 6825 7000 8141) (7566 6825 7966 7175) (7566 6825 7966 8141) (7566 7791 7000 7175) (7566 7791 7000 8141) (7566 7791 7966 7175) (7566 7791 7966 8141) (8377 6825 7000 7175) (8377 6825 7000 8141) (8377 6825 7966 7175) (8377 6825 7966 8141) (8377 7791 7000 7175) (8377 7791 7000 8141) (8377 7791 7966 7175) (8377 7791 7966 8141) (6650 6800 6950 7100) (6650 6800 6950 8066) (6650 6800 7916 7100) (6650 6800 7916 8066) (6650 7766 6950 7100) (6650 7766 6950 8066) (6650 7766 7916 7100) (6650 7766 7916 8066) (7616 6800 6950 7100) (7616 6800 6950 8066) (7616 6800 7916 7100) (7616 6800 7916 8066) (7616 7766 6950 7100) (7616 7766 6950 8066) (7616 7766 7916 7100) (7616 7766 7916 8066) (6650 6875 7050 7225) (6650 6875 7050 8191) (6650 6875 8016 7225) (6650 6875 8016 8191) (6650 7841 7050 7225) (6650 7841 7050 8191) (6650 7841 8016 7225) (6650 7841 8016 8191) (7616 6875 7050 7225) (7616 6875 7050 8191) (7616 6875 8016 7225) (7616 6875 8016 8191) (7616 7841 7050 7225) (7616 7841 7050 8191) (7616 7841 8016 7225) (7616 7841 8016 8191) (6700 6850 7000 7150) (6700 6850 7000 8116) (6700 6850 7966 7150) (6700 6850 7966 8116) (6700 7816 7000 7150) (6700 7816 7000 8116) (6700 7816 7966 7150) (6700 7816 7966 8116) (7666 6850 7000 7150) (7666 6850 7000 8116) (7666 6850 7966 7150) (7666 6850 7966 8116) (7666 7816 7000 7150) (7666 7816 7000 8116) (7666 7816 7966 7150) (7666 7816 7966 8116) (6700 6925 7100 7275) (6700 6925 7100 8241) (6700 6925 8066 7275) (6700 6925 8066 8241) (6700 7891 7100 7275) (6700 7891 7100 8241) (6700 7891 8066 7275) (6700 7891 8066 8241) (7666 6925 7100 7275) (7666 6925 7100 8241) (7666 6925 8066 7275) (7666 6925 8066 8241) (7666 7891 7100 7275) (7666 7891 7100 8241) (7666 7891 8066 7275) (7666 7891 8066 8241) (6750 6900 7050 7200) (6750 6900 7050 8166) (6750 6900 8016 7200) (6750 6900 8016 8166) (6750 7866 7050 7200) (6750 7866 7050 8166) (6750 7866 8016 7200) (6750 7866 8016 8166) (7716 6900 7050 7200) (7716 6900 7050 8166) (7716 6900 8016 7200) (7716 6900 8016 8166) (7716 7866 7050 7200) (7716 7866 7050 8166) (7716 7866 8016 7200) (7716 7866 8016 8166) (6750 6975 7150 7325) (6750 6975 7150 8291) (6750 6975 8116 7325) (6750 6975 8116 8291) (6750 7941 7150 7325) (6750 7941 7150 8291) (6750 7941 8116 7325) (6750 7941 8116 8291) (7716 6975 7150 7325) (7716 6975 7150 8291) (7716 6975 8116 7325) (7716 6975 8116 8291) (7716 7941 7150 7325) (7716 7941 7150 8291) (7716 7941 8116 7325) (7716 7941 8116 8291) (6800 6950 7100 7250) (6800 6950 7100 8216) (6800 6950 8066 7250) (6800 6950 8066 8216) (6800 7916 7100 7250) (6800 7916 7100 8216) (6800 7916 8066 7250) (6800 7916 8066 8216) (7766 6950 7100 7250) (7766 6950 7100 8216) (7766 6950 8066 7250) (7766 6950 8066 8216) (7766 7916 7100 7250) (7766 7916 7100 8216) (7766 7916 8066 7250) (7766 7916 8066 8216) (6800 7025 7200 7375) (6800 7025 7200 8341) (6800 7025 8166 7375) (6800 7025 8166 8341) (6800 7991 7200 7375) (6800 7991 7200 8341) (6800 7991 8166 7375) (6800 7991 8166 8341) (7766 7025 7200 7375) (7766 7025 7200 8341) (7766 7025 8166 7375) (7766 7025 8166 8341) (7766 7991 7200 7375) (7766 7991 7200 8341) (7766 7991 8166 7375) (7766 7991 8166 8341) (6850 7000 7150 7300) (6850 7000 7150 8266) (6850 7000 8116 7300) (6850 7000 8116 8266) (6850 7966 7150 7300) (6850 7966 7150 8266) (6850 7966 8116 7300) (6850 7966 8116 8266) (7816 7000 7150 7300) (7816 7000 7150 8266) (7816 7000 8116 7300) (7816 7000 8116 8266) (7816 7966 7150 7300) (7816 7966 7150 8266) (7816 7966 8116 7300) (7816 7966 8116 8266) (6850 7075 7250 7425) (6850 7075 7250 8391) (6850 7075 8216 7425) (6850 7075 8216 8391) (6850 8041 7250 7425) (6850 8041 7250 8391) (6850 8041 8216 7425) (6850 8041 8216 8391) (7816 7075 7250 7425) (7816 7075 7250 8391) (7816 7075 8216 7425) (7816 7075 8216 8391) (7816 8041 7250 7425) (7816 8041 7250 8391) (7816 8041 8216 7425) (7816 8041 8216 8391) (6900 7050 7200 7350) (6900 7050 7200 8316) (6900 7050 8166 7350) (6900 7050 8166 8316) (6900 8016 7200 7350) (6900 8016 7200 8316) (6900 8016 8166 7350) (6900 8016 8166 8316) (7866 7050 7200 7350) (7866 7050 7200 8316) (7866 7050 8166 7350) (7866 7050 8166 8316) (7866 8016 7200 7350) (7866 8016 7200 8316) (7866 8016 8166 7350) (7866 8016 8166 8316) (6900 7125 7300 7475) (6900 7125 8266 7475) (6900 8091 7300 7475) (6900 8091 8266 7475) (7866 7125 7300 7475) (7866 7125 8266 7475) (7866 8091 7300 7475) (7866 8091 8266 7475) (6950 7100 7250 7400) (6950 7100 7250 8366) (6950 7100 8216 7400) (6950 7100 8216 8366) (6950 8066 7250 7400) (6950 8066 7250 8366) (6950 8066 8216 7400) (6950 8066 8216 8366) (7916 7100 7250 7400) (7916 7100 7250 8366) (7916 7100 8216 7400) (7916 7100 8216 8366) (7916 8066 7250 7400) (7916 8066 7250 8366) (7916 8066 8216 7400) (7916 8066 8216 8366) (6950 7175 7350 7525) (6950 7175 8316 7525) (6950 8141 7350 7525) (6950 8141 8316 7525) (7916 7175 7350 7525) (7916 7175 8316 7525) (7916 8141 7350 7525) (7916 8141 8316 7525) (7000 7150 7300 7450) (7000 7150 8266 7450) (7000 8116 7300 7450) (7000 8116 8266 7450) (7966 7150 7300 7450) (7966 7150 8266 7450) (7966 8116 7300 7450) (7966 8116 8266 7450) (7000 7225 7400 7575) (7000 7225 8366 7575) (7000 8191 7400 7575) (7000 8191 8366 7575) (7966 7225 7400 7575) (7966 7225 8366 7575) (7966 8191 7400 7575) (7966 8191 8366 7575) (7050 7200 7350 7500) (7050 7200 8316 7500) (7050 8166 7350 7500) (7050 8166 8316 7500) (8016 7200 7350 7500) (8016 7200 8316 7500) (8016 8166 7350 7500) (8016 8166 8316 7500) (7050 7275 7450 7625) (7050 8241 7450 7625) (8016 7275 7450 7625) (8016 8241 7450 7625) (7100 7250 7400 7550) (7100 7250 8366 7550) (7100 8216 7400 7550) (7100 8216 8366 7550) (8066 7250 7400 7550) (8066 7250 8366 7550) (8066 8216 7400 7550) (8066 8216 8366 7550) (7100 7325 7500 7675) (7100 8291 7500 7675) (8066 7325 7500 7675) (8066 8291 7500 7675) (7150 7300 7450 7600) (7150 8266 7450 7600) (8116 7300 7450 7600) (8116 8266 7450 7600) (7150 7375 7550 7725) (7150 8341 7550 7725) (8116 7375 7550 7725) (8116 8341 7550 7725) (7200 7350 7500 7650) (7200 8316 7500 7650) (8166 7350 7500 7650) (8166 8316 7500 7650) (7200 7425 7600 7775) (7200 8391 7600 7775) (8166 7425 7600 7775) (8166 8391 7600 7775) (7250 7400 7550 7700) (7250 8366 7550 7700) (8216 7400 7550 7700) (8216 8366 7550 7700) (7250 7475 7650 7825) (8216 7475 7650 7825) (7300 7450 7600 7750) (8266 7450 7600 7750) (7300 7525 7700 7875) (8266 7525 7700 7875) (7350 7500 7650 7800) (8316 7500 7650 7800) (7350 7575 7750 7925) (8316 7575 7750 7925) (7400 7550 7700 7850) (8366 7550 7700 7850) (7400 7625 7800 7975) (8366 7625 7800 7975) (7450 7600 7750 7900) (7450 7675 7850 8025) (7500 7650 7800 7950) (7500 7725 7900 8075) (7550 7700 7850 8000) (7550 7775 7950 8125) (7600 7750 7900 8050) (7600 7825 8000 8175) (7650 7800 7950 8100) (7650 7875 8050 8225) (7700 7850 8000 8150) (7700 7925 8100 8275) (7750 7900 8050 8200) (7750 7975 8150 8325) (7800 7950 8100 8250) (7800 8025 8200 8375) (7850 8000 8150 8300) (7900 8050 8200 8350) (7950 8100 8250 8400))) :lonset (quote (0 2000 4000 6000 8000 10000 12000 14000 16000 18000 20000 22000 24000 26000 28000 30000 32000 34000 36000 38000 40000 42000 44000 46000 48000 50000 52000 54000 56000 58000 60000 62000 64000 66000 68000 70000 72000 74000 76000 78000 80000 82000 84000 86000 88000 90000 92000 94000 96000 98000 100000 102000 104000 106000 108000 110000 112000 114000 116000 118000 120000 122000 124000 126000 128000 130000 132000 134000 136000 138000 140000 142000 144000 146000 148000 150000 152000 154000 156000 158000 160000 162000 164000 166000 168000 170000 172000 174000 176000 178000 180000 182000 184000 186000 188000 190000 192000 194000 196000 198000 200000 202000 204000 206000 208000 210000 212000 214000 216000 218000 220000 222000 224000 226000 228000 230000 232000 234000 236000 238000 240000 242000 244000 246000 248000 250000 252000 254000 256000 258000 260000 262000 264000 266000 268000 270000 272000 274000 276000 278000 280000 282000 284000 286000 288000 290000 292000 294000 296000 298000 300000 302000 304000 306000 308000 310000 312000 314000 316000 318000 320000 322000 324000 326000 328000 330000 332000 334000 336000 338000 340000 342000 344000 346000 348000 350000 352000 354000 356000 358000 360000 362000 364000 366000 368000 370000 372000 374000 376000 378000 380000 382000 384000 386000 388000 390000 392000 394000 396000 398000 400000 402000 404000 406000 408000 410000 412000 414000 416000 418000 420000 422000 424000 426000 428000 430000 432000 434000 436000 438000 440000 442000 444000 446000 448000 450000 452000 454000 456000 458000 460000 462000 464000 466000 468000 470000 472000 474000 476000 478000 480000 482000 484000 486000 488000 490000 492000 494000 496000 498000 500000 502000 504000 506000 508000 510000 512000 514000 516000 518000 520000 522000 524000 526000 528000 530000 532000 534000 536000 538000 540000 542000 544000 546000 548000 550000 552000 554000 556000 558000 560000 562000 564000 566000 568000 570000 572000 574000 576000 578000 580000 582000 584000 586000 588000 590000 592000 594000 596000 598000 600000 602000 604000 606000 608000 610000 612000 614000 616000 618000 620000 622000 624000 626000 628000 630000 632000 634000 636000 638000 640000 642000 644000 646000 648000 650000 652000 654000 656000 658000 660000 662000 664000 666000 668000 670000 672000 674000 676000 678000 680000 682000 684000 686000 688000 690000 692000 694000 696000 698000 700000 702000 704000 706000 708000 710000 712000 714000 716000 718000 720000 722000 724000 726000 728000 730000 732000 734000 736000 738000 740000 742000 744000 746000 748000 750000 752000 754000 756000 758000 760000 762000 764000 766000 768000 770000 772000 774000 776000 778000 780000 782000 784000 786000 788000 790000 792000 794000 796000 798000 800000 802000 804000 806000 808000 810000 812000 814000 816000 818000 820000 822000 824000 826000 828000 830000 832000 834000 836000 838000 840000 842000 844000 846000 848000 850000 852000 854000 856000 858000 860000 862000 864000 866000 868000 870000 872000 874000 876000 878000 880000 882000 884000 886000 888000 890000 892000 894000 896000 898000 900000 902000 904000 906000 908000 910000 912000 914000 916000 918000 920000 922000 924000 926000 928000 930000 932000 934000 936000 938000 940000 942000 944000 946000 948000 950000 952000 954000 956000 958000 960000 962000 964000 966000 968000 970000 972000 974000 976000 978000 980000 982000 984000 986000 988000 990000 992000 994000 996000 998000 1000000 1002000 1004000 1006000 1008000 1010000 1012000 1014000 1016000 1018000 1020000 1022000 1024000 1026000 1028000 1030000 1032000 1034000 1036000 1038000 1040000 1042000 1044000 1046000 1048000 1050000 1052000 1054000 1056000 1058000 1060000 1062000 1064000 1066000 1068000 1070000 1072000 1074000 1076000 1078000 1080000 1082000 1084000 1086000 1088000 1090000 1092000 1094000 1096000 1098000 1100000 1102000 1104000 1106000 1108000 1110000 1112000 1114000 1116000 1118000 1120000 1122000 1124000 1126000 1128000 1130000 1132000 1134000 1136000 1138000 1140000 1142000 1144000 1146000 1148000 1150000 1152000 1154000 1156000 1158000 1160000 1162000 1164000 1166000 1168000 1170000 1172000 1174000 1176000 1178000 1180000 1182000 1184000 1186000 1188000 1190000 1192000 1194000 1196000 1198000 1200000 1202000 1204000 1206000 1208000 1210000 1212000 1214000 1216000 1218000 1220000 1222000 1224000 1226000 1228000 1230000 1232000 1234000 1236000 1238000 1240000 1242000 1244000 1246000 1248000 1250000 1252000 1254000 1256000 1258000 1260000 1262000 1264000 1266000 1268000 1270000 1272000 1274000 1276000 1278000 1280000 1282000 1284000 1286000 1288000 1290000 1292000 1294000 1296000 1298000 1300000 1302000 1304000 1306000 1308000 1310000 1312000 1314000 1316000 1318000 1320000 1322000 1324000 1326000 1328000 1330000 1332000 1334000 1336000 1338000 1340000 1342000 1344000 1346000 1348000 1350000 1352000 1354000 1356000 1358000 1360000 1362000 1364000 1366000 1368000 1370000 1372000 1374000 1376000 1378000 1380000 1382000 1384000 1386000 1388000 1390000 1392000 1394000 1396000 1398000 1400000 1402000 1404000 1406000 1408000 1410000 1412000 1414000 1416000 1418000 1420000 1422000 1424000 1426000 1428000 1430000 1432000 1434000 1436000 1438000 1440000 1442000 1444000 1446000 1448000 1450000 1452000 1454000 1456000 1458000 1460000 1462000 1464000 1466000 1468000 1470000 1472000 1474000 1476000 1478000 1480000 1482000 1484000 1486000 1488000 1490000 1492000 1494000 1496000 1498000 1500000 1502000 1504000 1506000 1508000 1510000 1512000 1514000 1516000 1518000 1520000 1522000 1524000 1526000 1528000 1530000 1532000 1534000 1536000 1538000 1540000 1542000 1544000 1546000 1548000 1550000 1552000 1554000 1556000 1558000 1560000 1562000 1564000 1566000 1568000 1570000 1572000 1574000 1576000 1578000 1580000 1582000 1584000 1586000 1588000 1590000 1592000 1594000 1596000 1598000 1600000 1602000 1604000 1606000 1608000 1610000 1612000 1614000 1616000 1618000 1620000 1622000 1624000 1626000 1628000 1630000 1632000 1634000 1636000 1638000 1640000 1642000 1644000 1646000 1648000 1650000 1652000 1654000 1656000 1658000 1660000 1662000 1664000 1666000 1668000 1670000 1672000 1674000 1676000 1678000 1680000 1682000 1684000 1686000 1688000 1690000 1692000 1694000 1696000 1698000 1700000 1702000 1704000 1706000 1708000 1710000 1712000 1714000 1716000 1718000 1720000 1722000 1724000 1726000 1728000 1730000 1732000 1734000 1736000 1738000 1740000 1742000 1744000 1746000 1748000 1750000 1752000 1754000 1756000 1758000 1760000 1762000 1764000 1766000 1768000 1770000 1772000 1774000 1776000 1778000 1780000 1782000 1784000 1786000 1788000 1790000 1792000 1794000 1796000 1798000 1800000 1802000 1804000 1806000 1808000 1810000 1812000 1814000 1816000 1818000 1820000 1822000 1824000 1826000 1828000 1830000 1832000 1834000 1836000 1838000 1840000 1842000 1844000 1846000 1848000 1850000 1852000 1854000 1856000 1858000 1860000 1862000 1864000 1866000 1868000 1870000 1872000 1874000 1876000 1878000 1880000 1882000 1884000 1886000 1888000 1890000 1892000 1894000 1896000 1898000 1900000 1902000 1904000 1906000 1908000 1910000 1912000 1914000 1916000 1918000 1920000 1922000 1924000 1926000 1928000 1930000 1932000 1934000 1936000 1938000 1940000 1942000 1944000 1946000 1948000 1950000 1952000 1954000 1956000 1958000 1960000 1962000 1964000 1966000 1968000 1970000 1972000 1974000 1976000 1978000 1980000 1982000 1984000 1986000 1988000 1990000 1992000 1994000 1996000 1998000 2000000 2002000 2004000 2006000 2008000 2010000 2012000 2014000 2016000 2018000 2020000 2022000 2024000 2026000 2028000 2030000 2032000 2034000 2036000 2038000 2040000 2042000 2044000 2046000 2048000 2050000 2052000 2054000 2056000 2058000 2060000 2062000 2064000 2066000 2068000 2070000 2072000 2074000 2076000 2078000 2080000 2082000 2084000 2086000 2088000 2090000 2092000 2094000 2096000 2098000 2100000 2102000 2104000 2106000 2108000 2110000 2112000 2114000 2116000 2118000 2120000 2122000 2124000 2126000 2128000 2130000 2132000 2134000 2136000 2138000 2140000 2142000 2144000 2146000 2148000 2150000 2152000 2154000 2156000 2158000 2160000 2162000 2164000 2166000 2168000 2170000 2172000 2174000 2176000 2178000 2180000 2182000 2184000 2186000 2188000 2190000 2192000 2194000 2196000 2198000 2200000 2202000 2204000 2206000 2208000 2210000 2212000 2214000 2216000 2218000 2220000 2222000 2224000 2226000 2228000 2230000 2232000 2234000 2236000 2238000 2240000 2242000 2244000 2246000 2248000 2250000 2252000 2254000 2256000 2258000 2260000 2262000 2264000 2266000 2268000 2270000 2272000 2274000 2276000 2278000 2280000 2282000 2284000 2286000 2288000 2290000 2292000 2294000 2296000 2298000 2300000 2302000 2304000 2306000 2308000 2310000 2312000 2314000 2316000 2318000 2320000 2322000 2324000 2326000 2328000 2330000 2332000 2334000 2336000 2338000 2340000 2342000 2344000 2346000 2348000 2350000 2352000 2354000 2356000 2358000 2360000 2362000 2364000 2366000 2368000 2370000 2372000 2374000 2376000 2378000 2380000 2382000 2384000 2386000 2388000 2390000 2392000 2394000 2396000 2398000 2400000 2402000 2404000 2406000 2408000 2410000 2412000 2414000 2416000 2418000 2420000 2422000 2424000 2426000 2428000 2430000 2432000 2434000 2436000 2438000 2440000 2442000 2444000 2446000 2448000 2450000 2452000 2454000 2456000 2458000 2460000 2462000 2464000 2466000 2468000 2470000 2472000 2474000 2476000 2478000 2480000 2482000 2484000 2486000 2488000 2490000 2492000 2494000 2496000 2498000 2500000 2502000 2504000 2506000 2508000 2510000 2512000 2514000 2516000 2518000 2520000 2522000 2524000 2526000 2528000 2530000 2532000 2534000 2536000 2538000 2540000 2542000 2544000 2546000 2548000 2550000 2552000 2554000 2556000 2558000 2560000 2562000 2564000 2566000 2568000 2570000 2572000 2574000 2576000 2578000 2580000 2582000 2584000 2586000 2588000 2590000 2592000 2594000 2596000 2598000 2600000 2602000 2604000 2606000 2608000 2610000 2612000 2614000 2616000 2618000 2620000 2622000 2624000 2626000 2628000 2630000 2632000 2634000 2636000 2638000 2640000 2642000 2644000 2646000 2648000 2650000 2652000 2654000 2656000 2658000 2660000 2662000 2664000 2666000 2668000 2670000 2672000 2674000 2676000 2678000 2680000 2682000 2684000 2686000 2688000 2690000 2692000 2694000 2696000 2698000 2700000 2702000 2704000 2706000 2708000 2710000 2712000 2714000 2716000 2718000 2720000 2722000 2724000 2726000 2728000 2730000 2732000 2734000 2736000 2738000 2740000 2742000 2744000 2746000 2748000 2750000 2752000 2754000 2756000 2758000 2760000 2762000 2764000 2766000 2768000 2770000 2772000 2774000 2776000 2778000 2780000 2782000 2784000 2786000 2788000 2790000 2792000 2794000 2796000 2798000 2800000 2802000 2804000 2806000 2808000 2810000 2812000 2814000 2816000 2818000 2820000 2822000 2824000 2826000 2828000 2830000 2832000 2834000 2836000 2838000 2840000 2842000 2844000 2846000 2848000 2850000 2852000 2854000 2856000 2858000 2860000 2862000 2864000 2866000 2868000 2870000 2872000 2874000 2876000 2878000 2880000 2882000 2884000 2886000 2888000 2890000 2892000 2894000 2896000 2898000 2900000 2902000 2904000 2906000 2908000 2910000 2912000 2914000 2916000 2918000 2920000 2922000 2924000 2926000 2928000 2930000 2932000 2934000 2936000 2938000 2940000 2942000 2944000 2946000 2948000 2950000 2952000 2954000 2956000 2958000 2960000 2962000 2964000 2966000 2968000 2970000 2972000 2974000 2976000 2978000 2980000 2982000 2984000 2986000 2988000 2990000 2992000 2994000 2996000 2998000 3000000 3002000 3004000 3006000 3008000 3010000 3012000 3014000 3016000 3018000 3020000 3022000 3024000 3026000 3028000 3030000 3032000 3034000 3036000 3038000 3040000 3042000 3044000 3046000 3048000 3050000 3052000 3054000 3056000 3058000 3060000 3062000 3064000 3066000 3068000 3070000 3072000 3074000 3076000 3078000 3080000 3082000 3084000 3086000 3088000 3090000 3092000 3094000 3096000 3098000 3100000 3102000 3104000 3106000 3108000 3110000 3112000 3114000 3116000 3118000 3120000 3122000 3124000 3126000 3128000 3130000 3132000 3134000 3136000 3138000 3140000 3142000 3144000 3146000 3148000 3150000 3152000 3154000 3156000 3158000 3160000 3162000 3164000 3166000 3168000 3170000 3172000 3174000 3176000 3178000 3180000 3182000 3184000 3186000 3188000 3190000 3192000 3194000 3196000 3198000 3200000 3202000 3204000 3206000 3208000 3210000 3212000 3214000 3216000 3218000 3220000 3222000 3224000 3226000 3228000 3230000 3232000 3234000 3236000 3238000 3240000 3242000 3244000 3246000 3248000 3250000 3252000 3254000 3256000 3258000 3260000 3262000 3264000 3266000 3268000 3270000 3272000 3274000 3276000 3278000 3280000 3282000 3284000 3286000 3288000 3290000 3292000 3294000 3296000 3298000 3300000 3302000 3304000 3306000 3308000 3310000 3312000 3314000 3316000 3318000 3320000 3322000 3324000 3326000 3328000 3330000 3332000 3334000 3336000 3338000 3340000 3342000 3344000 3346000 3348000 3350000 3352000 3354000 3356000 3358000 3360000 3362000 3364000 3366000 3368000 3370000 3372000 3374000 3376000 3378000 3380000 3382000 3384000 3386000 3388000 3390000 3392000 3394000 3396000 3398000 3400000 3402000 3404000 3406000 3408000 3410000 3412000 3414000 3416000 3418000 3420000 3422000 3424000 3426000 3428000 3430000 3432000 3434000 3436000 3438000 3440000 3442000 3444000 3446000 3448000 3450000 3452000 3454000 3456000 3458000 3460000 3462000 3464000 3466000 3468000 3470000 3472000 3474000 3476000 3478000 3480000 3482000 3484000 3486000 3488000 3490000 3492000 3494000 3496000 3498000 3500000 3502000 3504000 3506000 3508000 3510000 3512000 3514000 3516000 3518000 3520000 3522000 3524000 3526000 3528000 3530000 3532000 3534000 3536000 3538000 3540000 3542000 3544000 3546000 3548000 3550000 3552000 3554000 3556000 3558000 3560000 3562000 3564000 3566000 3568000 3570000 3572000 3574000 3576000 3578000 3580000 3582000 3584000 3586000 3588000 3590000 3592000 3594000 3596000 3598000 3600000 3602000 3604000 3606000 3608000 3610000 3612000 3614000 3616000 3618000 3620000 3622000 3624000 3626000 3628000 3630000 3632000 3634000 3636000 3638000 3640000 3642000 3644000 3646000 3648000 3650000 3652000 3654000 3656000 3658000 3660000 3662000 3664000 3666000 3668000 3670000 3672000 3674000 3676000 3678000 3680000 3682000 3684000 3686000 3688000 3690000 3692000 3694000 3696000 3698000 3700000 3702000 3704000 3706000 3708000 3710000 3712000 3714000 3716000 3718000 3720000 3722000 3724000 3726000 3728000 3730000 3732000 3734000 3736000 3738000 3740000 3742000 3744000 3746000 3748000 3750000 3752000 3754000 3756000 3758000 3760000 3762000 3764000 3766000 3768000 3770000 3772000 3774000 3776000 3778000 3780000 3782000 3784000 3786000 3788000 3790000 3792000 3794000 3796000 3798000 3800000 3802000 3804000 3806000 3808000 3810000 3812000 3814000 3816000 3818000 3820000 3822000 3824000 3826000 3828000 3830000 3832000 3834000 3836000 3838000 3840000 3842000 3844000 3846000 3848000 3850000 3852000 3854000 3856000 3858000 3860000 3862000 3864000 3866000 3868000 3870000 3872000 3874000 3876000 3878000 3880000 3882000 3884000 3886000 3888000 3890000 3892000 3894000 3896000 3898000 3900000 3902000 3904000 3906000 3908000 3910000 3912000 3914000 3916000 3918000 3920000 3922000 3924000 3926000 3928000 3930000 3932000 3934000 3936000 3938000 3940000 3942000 3944000 3946000 3948000 3950000 3952000 3954000 3956000 3958000 3960000 3962000 3964000 3966000 3968000 3970000 3972000 3974000 3976000 3978000 3980000 3982000 3984000 3986000 3988000 3990000 3992000 3994000 3996000 3998000 4000000 4002000 4004000 4006000 4008000 4010000 4012000 4014000 4016000 4018000 4020000 4022000 4024000 4026000 4028000 4030000 4032000 4034000 4036000 4038000 4040000 4042000 4044000 4046000 4048000 4050000 4052000 4054000 4056000 4058000 4060000 4062000 4064000 4066000 4068000 4070000 4072000 4074000 4076000 4078000 4080000 4082000 4084000 4086000 4088000 4090000 4092000 4094000 4096000 4098000 4100000)) :ldur (quote ((2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000) (2000 2000 2000 2000))) :lvel (quote ((70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70) (70 70 70 70))) :loffset (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0))) :lchan (quote ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0) (0 0 0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote ((nil (om-load-patch-abs1 "patch" (quote nil) (quote nil) 7.02 nil "" (om-make-point 200 200) (om-make-point 400 500)))))) (set-name newobj nil) (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :interval) 1 0 (om-make-point 185 144) (om-make-point 625 443) 0 1000 nil 1 (quote :microplayer) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 8)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition" "fundamental" (quote :fundamental) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 174 343) (om-make-point 272 67) (list (append (list (list 6666 6816 6000 6150) (list 6666 6816 6000 7116) (list 6666 6816 6000 7927) (list 6666 6816 6966 6150) (list 6666 6816 6966 7116) (list 6666 6816 6966 7927) (list 6666 6816 7777 6150) (list 6666 6816 7777 7116) (list 6666 6816 7777 7927) (list 6666 7627 6000 6150) (list 6666 7627 6000 7116) (list 6666 7627 6000 7927) (list 6666 7627 6966 6150) (list 6666 7627 6966 7116) (list 6666 7627 6966 7927) (list 6666 7627 7777 6150) (list 6666 7627 7777 7116) (list 6666 7627 7777 7927) (list 7477 6816 6000 6150) (list 7477 6816 6000 7116) (list 7477 6816 6000 7927) (list 7477 6816 6966 6150) (list 7477 6816 6966 7116) (list 7477 6816 6966 7927) (list 7477 6816 7777 6150) (list 7477 6816 7777 7116) (list 7477 6816 7777 7927) (list 7477 7627 6000 6150) (list 7477 7627 6000 7116) (list 7477 7627 6000 7927) (list 7477 7627 6966 6150) (list 7477 7627 6966 7116) (list 7477 7627 6966 7927) (list 7477 7627 7777 6150) (list 7477 7627 7777 7116) (list 7477 7627 7777 7927) (list 6666 6891 6100 6275) (list 6666 6891 6100 7241) (list 6666 6891 6100 8052) (list 6666 6891 7066 6275) (list 6666 6891 7066 7241) (list 6666 6891 7066 8052) (list 6666 6891 7877 6275) (list 6666 6891 7877 7241) (list 6666 6891 7877 8052) (list 6666 7702 6100 6275) (list 6666 7702 6100 7241) (list 6666 7702 6100 8052) (list 6666 7702 7066 6275) (list 6666 7702 7066 7241) (list 6666 7702 7066 8052) (list 6666 7702 7877 6275) (list 6666 7702 7877 7241) (list 6666 7702 7877 8052) (list 7477 6891 6100 6275) (list 7477 6891 6100 7241) (list 7477 6891 6100 8052) (list 7477 6891 7066 6275) (list 7477 6891 7066 7241) (list 7477 6891 7066 8052) (list 7477 6891 7877 6275) (list 7477 6891 7877 7241) (list 7477 6891 7877 8052) (list 7477 7702 6100 6275) (list 7477 7702 6100 7241) (list 7477 7702 6100 8052) (list 7477 7702 7066 6275) (list 7477 7702 7066 7241) (list 7477 7702 7066 8052) (list 7477 7702 7877 6275) (list 7477 7702 7877 7241) (list 7477 7702 7877 8052) (list 6716 6866 6050 6200) (list 6716 6866 6050 7166) (list 6716 6866 6050 7977) (list 6716 6866 7016 6200) (list 6716 6866 7016 7166) (list 6716 6866 7016 7977) (list 6716 6866 7827 6200) (list 6716 6866 7827 7166) (list 6716 6866 7827 7977) (list 6716 7677 6050 6200) (list 6716 7677 6050 7166) (list 6716 7677 6050 7977) (list 6716 7677 7016 6200) (list 6716 7677 7016 7166) (list 6716 7677 7016 7977) (list 6716 7677 7827 6200) (list 6716 7677 7827 7166) (list 6716 7677 7827 7977) (list 7527 6866 6050 6200) (list 7527 6866 6050 7166) (list 7527 6866 6050 7977) (list 7527 6866 7016 6200) (list 7527 6866 7016 7166) (list 7527 6866 7016 7977) (list 7527 6866 7827 6200) (list 7527 6866 7827 7166) (list 7527 6866 7827 7977) (list 7527 7677 6050 6200) (list 7527 7677 6050 7166) (list 7527 7677 6050 7977) (list 7527 7677 7016 6200) (list 7527 7677 7016 7166) (list 7527 7677 7016 7977) (list 7527 7677 7827 6200) (list 7527 7677 7827 7166) (list 7527 7677 7827 7977) (list 6716 6941 6150 6325) (list 6716 6941 6150 7291) (list 6716 6941 6150 8102) (list 6716 6941 7116 6325) (list 6716 6941 7116 7291) (list 6716 6941 7116 8102) (list 6716 6941 7927 6325) (list 6716 6941 7927 7291) (list 6716 6941 7927 8102) (list 6716 7752 6150 6325) (list 6716 7752 6150 7291) (list 6716 7752 6150 8102) (list 6716 7752 7116 6325) (list 6716 7752 7116 7291) (list 6716 7752 7116 8102) (list 6716 7752 7927 6325) (list 6716 7752 7927 7291) (list 6716 7752 7927 8102) (list 7527 6941 6150 6325) (list 7527 6941 6150 7291) (list 7527 6941 6150 8102) (list 7527 6941 7116 6325) (list 7527 6941 7116 7291) (list 7527 6941 7116 8102) (list 7527 6941 7927 6325) (list 7527 6941 7927 7291) (list 7527 6941 7927 8102) (list 7527 7752 6150 6325) (list 7527 7752 6150 7291) (list 7527 7752 6150 8102) (list 7527 7752 7116 6325) (list 7527 7752 7116 7291) (list 7527 7752 7116 8102) (list 7527 7752 7927 6325) (list 7527 7752 7927 7291) (list 7527 7752 7927 8102) (list 6766 6916 6100 6250) (list 6766 6916 6100 7216) (list 6766 6916 6100 8027) (list 6766 6916 7066 6250) (list 6766 6916 7066 7216) (list 6766 6916 7066 8027) (list 6766 6916 7877 6250) (list 6766 6916 7877 7216) (list 6766 6916 7877 8027) (list 6766 7727 6100 6250) (list 6766 7727 6100 7216) (list 6766 7727 6100 8027) (list 6766 7727 7066 6250) (list 6766 7727 7066 7216) (list 6766 7727 7066 8027) (list 6766 7727 7877 6250) (list 6766 7727 7877 7216) (list 6766 7727 7877 8027) (list 7577 6916 6100 6250) (list 7577 6916 6100 7216) (list 7577 6916 6100 8027) (list 7577 6916 7066 6250) (list 7577 6916 7066 7216) (list 7577 6916 7066 8027) (list 7577 6916 7877 6250) (list 7577 6916 7877 7216) (list 7577 6916 7877 8027) (list 7577 7727 6100 6250) (list 7577 7727 6100 7216) (list 7577 7727 6100 8027) (list 7577 7727 7066 6250) (list 7577 7727 7066 7216) (list 7577 7727 7066 8027) (list 7577 7727 7877 6250) (list 7577 7727 7877 7216) (list 7577 7727 7877 8027) (list 6766 6025 6200 6375) (list 6766 6025 6200 7341) (list 6766 6025 6200 8152) (list 6766 6025 7166 6375) (list 6766 6025 7166 7341) (list 6766 6025 7166 8152) (list 6766 6025 7977 6375) (list 6766 6025 7977 7341) (list 6766 6025 7977 8152) (list 6766 6991 6200 6375) (list 6766 6991 6200 7341) (list 6766 6991 6200 8152) (list 6766 6991 7166 6375) (list 6766 6991 7166 7341) (list 6766 6991 7166 8152) (list 6766 6991 7977 6375) (list 6766 6991 7977 7341) (list 6766 6991 7977 8152) (list 6766 7802 6200 6375) (list 6766 7802 6200 7341) (list 6766 7802 6200 8152) (list 6766 7802 7166 6375) (list 6766 7802 7166 7341) (list 6766 7802 7166 8152) (list 6766 7802 7977 6375) (list 6766 7802 7977 7341) (list 6766 7802 7977 8152) (list 7577 6025 6200 6375) (list 7577 6025 6200 7341) (list 7577 6025 6200 8152) (list 7577 6025 7166 6375) (list 7577 6025 7166 7341) (list 7577 6025 7166 8152) (list 7577 6025 7977 6375) (list 7577 6025 7977 7341) (list 7577 6025 7977 8152) (list 7577 6991 6200 6375) (list 7577 6991 6200 7341) (list 7577 6991 6200 8152) (list 7577 6991 7166 6375) (list 7577 6991 7166 7341) (list 7577 6991 7166 8152) (list 7577 6991 7977 6375) (list 7577 6991 7977 7341) (list 7577 6991 7977 8152) (list 7577 7802 6200 6375) (list 7577 7802 6200 7341) (list 7577 7802 6200 8152) (list 7577 7802 7166 6375) (list 7577 7802 7166 7341) (list 7577 7802 7166 8152) (list 7577 7802 7977 6375) (list 7577 7802 7977 7341) (list 7577 7802 7977 8152) (list 6816 6000 6150 6300) (list 6816 6000 6150 7266) (list 6816 6000 6150 8077) (list 6816 6000 7116 6300) (list 6816 6000 7116 7266) (list 6816 6000 7116 8077) (list 6816 6000 7927 6300) (list 6816 6000 7927 7266) (list 6816 6000 7927 8077) (list 6816 6966 6150 6300) (list 6816 6966 6150 7266) (list 6816 6966 6150 8077) (list 6816 6966 7116 6300) (list 6816 6966 7116 7266) (list 6816 6966 7116 8077) (list 6816 6966 7927 6300) (list 6816 6966 7927 7266) (list 6816 6966 7927 8077) (list 6816 7777 6150 6300) (list 6816 7777 6150 7266) (list 6816 7777 6150 8077) (list 6816 7777 7116 6300) (list 6816 7777 7116 7266) (list 6816 7777 7116 8077) (list 6816 7777 7927 6300) (list 6816 7777 7927 7266) (list 6816 7777 7927 8077) (list 7627 6000 6150 6300) (list 7627 6000 6150 7266) (list 7627 6000 6150 8077) (list 7627 6000 7116 6300) (list 7627 6000 7116 7266) (list 7627 6000 7116 8077) (list 7627 6000 7927 6300) (list 7627 6000 7927 7266) (list 7627 6000 7927 8077) (list 7627 6966 6150 6300) (list 7627 6966 6150 7266) (list 7627 6966 6150 8077) (list 7627 6966 7116 6300) (list 7627 6966 7116 7266) (list 7627 6966 7116 8077) (list 7627 6966 7927 6300) (list 7627 6966 7927 7266) (list 7627 6966 7927 8077) (list 7627 7777 6150 6300) (list 7627 7777 6150 7266) (list 7627 7777 6150 8077) (list 7627 7777 7116 6300) (list 7627 7777 7116 7266) (list 7627 7777 7116 8077) (list 7627 7777 7927 6300) (list 7627 7777 7927 7266) (list 7627 7777 7927 8077) (list 6816 6075 6250 6425) (list 6816 6075 6250 7391) (list 6816 6075 6250 8202) (list 6816 6075 7216 6425) (list 6816 6075 7216 7391) (list 6816 6075 7216 8202) (list 6816 6075 8027 6425) (list 6816 6075 8027 7391) (list 6816 6075 8027 8202) (list 6816 7041 6250 6425) (list 6816 7041 6250 7391) (list 6816 7041 6250 8202) (list 6816 7041 7216 6425) (list 6816 7041 7216 7391) (list 6816 7041 7216 8202) (list 6816 7041 8027 6425) (list 6816 7041 8027 7391) (list 6816 7041 8027 8202) (list 6816 7852 6250 6425) (list 6816 7852 6250 7391) (list 6816 7852 6250 8202) (list 6816 7852 7216 6425) (list 6816 7852 7216 7391) (list 6816 7852 7216 8202) (list 6816 7852 8027 6425) (list 6816 7852 8027 7391) (list 6816 7852 8027 8202) (list 7627 6075 6250 6425) (list 7627 6075 6250 7391) (list 7627 6075 6250 8202) (list 7627 6075 7216 6425) (list 7627 6075 7216 7391) (list 7627 6075 7216 8202) (list 7627 6075 8027 6425) (list 7627 6075 8027 7391) (list 7627 6075 8027 8202) (list 7627 7041 6250 6425) (list 7627 7041 6250 7391) (list 7627 7041 6250 8202) (list 7627 7041 7216 6425) (list 7627 7041 7216 7391) (list 7627 7041 7216 8202) (list 7627 7041 8027 6425) (list 7627 7041 8027 7391) (list 7627 7041 8027 8202) (list 7627 7852 6250 6425) (list 7627 7852 6250 7391) (list 7627 7852 6250 8202) (list 7627 7852 7216 6425) (list 7627 7852 7216 7391) (list 7627 7852 7216 8202) (list 7627 7852 8027 6425) (list 7627 7852 8027 7391) (list 7627 7852 8027 8202) (list 6866 6050 6200 6350) (list 6866 6050 6200 7316) (list 6866 6050 6200 8127) (list 6866 6050 7166 6350) (list 6866 6050 7166 7316) (list 6866 6050 7166 8127) (list 6866 6050 7977 6350) (list 6866 6050 7977 7316) (list 6866 6050 7977 8127) (list 6866 7016 6200 6350) (list 6866 7016 6200 7316) (list 6866 7016 6200 8127) (list 6866 7016 7166 6350) (list 6866 7016 7166 7316) (list 6866 7016 7166 8127) (list 6866 7016 7977 6350) (list 6866 7016 7977 7316) (list 6866 7016 7977 8127) (list 6866 7827 6200 6350) (list 6866 7827 6200 7316) (list 6866 7827 6200 8127) (list 6866 7827 7166 6350) (list 6866 7827 7166 7316) (list 6866 7827 7166 8127) (list 6866 7827 7977 6350) (list 6866 7827 7977 7316) (list 6866 7827 7977 8127) (list 7677 6050 6200 6350) (list 7677 6050 6200 7316) (list 7677 6050 6200 8127) (list 7677 6050 7166 6350) (list 7677 6050 7166 7316) (list 7677 6050 7166 8127) (list 7677 6050 7977 6350) (list 7677 6050 7977 7316) (list 7677 6050 7977 8127) (list 7677 7016 6200 6350) (list 7677 7016 6200 7316) (list 7677 7016 6200 8127) (list 7677 7016 7166 6350) (list 7677 7016 7166 7316) (list 7677 7016 7166 8127) (list 7677 7016 7977 6350) (list 7677 7016 7977 7316) (list 7677 7016 7977 8127) (list 7677 7827 6200 6350) (list 7677 7827 6200 7316) (list 7677 7827 6200 8127) (list 7677 7827 7166 6350) (list 7677 7827 7166 7316) (list 7677 7827 7166 8127) (list 7677 7827 7977 6350) (list 7677 7827 7977 7316) (list 7677 7827 7977 8127) (list 6866 6125 6300 6475) (list 6866 6125 6300 7441) (list 6866 6125 6300 8252) (list 6866 6125 7266 6475) (list 6866 6125 7266 7441) (list 6866 6125 7266 8252) (list 6866 6125 8077 6475) (list 6866 6125 8077 7441) (list 6866 6125 8077 8252) (list 6866 7091 6300 6475) (list 6866 7091 6300 7441) (list 6866 7091 6300 8252) (list 6866 7091 7266 6475) (list 6866 7091 7266 7441) (list 6866 7091 7266 8252) (list 6866 7091 8077 6475) (list 6866 7091 8077 7441) (list 6866 7091 8077 8252) (list 6866 7902 6300 6475) (list 6866 7902 6300 7441) (list 6866 7902 6300 8252) (list 6866 7902 7266 6475) (list 6866 7902 7266 7441) (list 6866 7902 7266 8252) (list 6866 7902 8077 6475) (list 6866 7902 8077 7441) (list 6866 7902 8077 8252) (list 7677 6125 6300 6475) (list 7677 6125 6300 7441) (list 7677 6125 6300 8252) (list 7677 6125 7266 6475) (list 7677 6125 7266 7441) (list 7677 6125 7266 8252) (list 7677 6125 8077 6475) (list 7677 6125 8077 7441) (list 7677 6125 8077 8252) (list 7677 7091 6300 6475) (list 7677 7091 6300 7441) (list 7677 7091 6300 8252) (list 7677 7091 7266 6475) (list 7677 7091 7266 7441) (list 7677 7091 7266 8252) (list 7677 7091 8077 6475) (list 7677 7091 8077 7441) (list 7677 7091 8077 8252) (list 7677 7902 6300 6475) (list 7677 7902 6300 7441) (list 7677 7902 6300 8252) (list 7677 7902 7266 6475) (list 7677 7902 7266 7441) (list 7677 7902 7266 8252) (list 7677 7902 8077 6475) (list 7677 7902 8077 7441) (list 7677 7902 8077 8252) (list 6916 6100 6250 6400) (list 6916 6100 6250 7366) (list 6916 6100 6250 8177) (list 6916 6100 7216 6400) (list 6916 6100 7216 7366) (list 6916 6100 7216 8177) (list 6916 6100 8027 6400) (list 6916 6100 8027 7366) (list 6916 6100 8027 8177) (list 6916 7066 6250 6400) (list 6916 7066 6250 7366) (list 6916 7066 6250 8177) (list 6916 7066 7216 6400) (list 6916 7066 7216 7366) (list 6916 7066 7216 8177) (list 6916 7066 8027 6400) (list 6916 7066 8027 7366) (list 6916 7066 8027 8177) (list 6916 7877 6250 6400) (list 6916 7877 6250 7366) (list 6916 7877 6250 8177) (list 6916 7877 7216 6400) (list 6916 7877 7216 7366) (list 6916 7877 7216 8177) (list 6916 7877 8027 6400) (list 6916 7877 8027 7366) (list 6916 7877 8027 8177) (list 7727 6100 6250 6400) (list 7727 6100 6250 7366) (list 7727 6100 6250 8177) (list 7727 6100 7216 6400) (list 7727 6100 7216 7366) (list 7727 6100 7216 8177) (list 7727 6100 8027 6400) (list 7727 6100 8027 7366) (list 7727 6100 8027 8177) (list 7727 7066 6250 6400) (list 7727 7066 6250 7366) (list 7727 7066 6250 8177) (list 7727 7066 7216 6400) (list 7727 7066 7216 7366) (list 7727 7066 7216 8177) (list 7727 7066 8027 6400) (list 7727 7066 8027 7366) (list 7727 7066 8027 8177) (list 7727 7877 6250 6400) (list 7727 7877 6250 7366) (list 7727 7877 6250 8177) (list 7727 7877 7216 6400) (list 7727 7877 7216 7366) (list 7727 7877 7216 8177) (list 7727 7877 8027 6400) (list 7727 7877 8027 7366) (list 7727 7877 8027 8177) (list 6916 6175 6350 6525) (list 6916 6175 6350 7491) (list 6916 6175 6350 8302) (list 6916 6175 7316 6525) (list 6916 6175 7316 7491) (list 6916 6175 7316 8302) (list 6916 6175 8127 6525) (list 6916 6175 8127 7491) (list 6916 6175 8127 8302) (list 6916 7141 6350 6525) (list 6916 7141 6350 7491) (list 6916 7141 6350 8302) (list 6916 7141 7316 6525) (list 6916 7141 7316 7491) (list 6916 7141 7316 8302) (list 6916 7141 8127 6525) (list 6916 7141 8127 7491) (list 6916 7141 8127 8302) (list 6916 7952 6350 6525) (list 6916 7952 6350 7491) (list 6916 7952 6350 8302) (list 6916 7952 7316 6525) (list 6916 7952 7316 7491) (list 6916 7952 7316 8302) (list 6916 7952 8127 6525) (list 6916 7952 8127 7491) (list 6916 7952 8127 8302) (list 7727 6175 6350 6525) (list 7727 6175 6350 7491) (list 7727 6175 6350 8302) (list 7727 6175 7316 6525) (list 7727 6175 7316 7491) (list 7727 6175 7316 8302) (list 7727 6175 8127 6525) (list 7727 6175 8127 7491) (list 7727 6175 8127 8302) (list 7727 7141 6350 6525) (list 7727 7141 6350 7491) (list 7727 7141 6350 8302) (list 7727 7141 7316 6525) (list 7727 7141 7316 7491) (list 7727 7141 7316 8302) (list 7727 7141 8127 6525) (list 7727 7141 8127 7491) (list 7727 7141 8127 8302) (list 7727 7952 6350 6525) (list 7727 7952 6350 7491) (list 7727 7952 6350 8302) (list 7727 7952 7316 6525) (list 7727 7952 7316 7491) (list 7727 7952 7316 8302) (list 7727 7952 8127 6525) (list 7727 7952 8127 7491) (list 7727 7952 8127 8302) (list 6000 6150 6300 6450) (list 6000 6150 6300 7416) (list 6000 6150 6300 8227) (list 6000 6150 7266 6450) (list 6000 6150 7266 7416) (list 6000 6150 7266 8227) (list 6000 6150 8077 6450) (list 6000 6150 8077 7416) (list 6000 6150 8077 8227) (list 6000 7116 6300 6450) (list 6000 7116 6300 7416) (list 6000 7116 6300 8227) (list 6000 7116 7266 6450) (list 6000 7116 7266 7416) (list 6000 7116 7266 8227) (list 6000 7116 8077 6450) (list 6000 7116 8077 7416) (list 6000 7116 8077 8227) (list 6000 7927 6300 6450) (list 6000 7927 6300 7416) (list 6000 7927 6300 8227) (list 6000 7927 7266 6450) (list 6000 7927 7266 7416) (list 6000 7927 7266 8227) (list 6000 7927 8077 6450) (list 6000 7927 8077 7416) (list 6000 7927 8077 8227) (list 6966 6150 6300 6450) (list 6966 6150 6300 7416) (list 6966 6150 6300 8227) (list 6966 6150 7266 6450) (list 6966 6150 7266 7416) (list 6966 6150 7266 8227) (list 6966 6150 8077 6450) (list 6966 6150 8077 7416) (list 6966 6150 8077 8227) (list 6966 7116 6300 6450) (list 6966 7116 6300 7416) (list 6966 7116 6300 8227) (list 6966 7116 7266 6450) (list 6966 7116 7266 7416) (list 6966 7116 7266 8227) (list 6966 7116 8077 6450) (list 6966 7116 8077 7416) (list 6966 7116 8077 8227) (list 6966 7927 6300 6450) (list 6966 7927 6300 7416) (list 6966 7927 6300 8227) (list 6966 7927 7266 6450) (list 6966 7927 7266 7416) (list 6966 7927 7266 8227) (list 6966 7927 8077 6450) (list 6966 7927 8077 7416) (list 6966 7927 8077 8227) (list 7777 6150 6300 6450) (list 7777 6150 6300 7416) (list 7777 6150 6300 8227) (list 7777 6150 7266 6450) (list 7777 6150 7266 7416) (list 7777 6150 7266 8227) (list 7777 6150 8077 6450) (list 7777 6150 8077 7416) (list 7777 6150 8077 8227) (list 7777 7116 6300 6450) (list 7777 7116 6300 7416) (list 7777 7116 6300 8227) (list 7777 7116 7266 6450) (list 7777 7116 7266 7416) (list 7777 7116 7266 8227) (list 7777 7116 8077 6450) (list 7777 7116 8077 7416) (list 7777 7116 8077 8227) (list 7777 7927 6300 6450) (list 7777 7927 6300 7416) (list 7777 7927 6300 8227) (list 7777 7927 7266 6450) (list 7777 7927 7266 7416) (list 7777 7927 7266 8227) (list 7777 7927 8077 6450) (list 7777 7927 8077 7416) (list 7777 7927 8077 8227) (list 6000 6225 6400 6575) (list 6000 6225 6400 7541) (list 6000 6225 6400 8352) (list 6000 6225 7366 6575) (list 6000 6225 7366 7541) (list 6000 6225 7366 8352) (list 6000 6225 8177 6575) (list 6000 6225 8177 7541) (list 6000 6225 8177 8352) (list 6000 7191 6400 6575) (list 6000 7191 6400 7541) (list 6000 7191 6400 8352) (list 6000 7191 7366 6575) (list 6000 7191 7366 7541) (list 6000 7191 7366 8352) (list 6000 7191 8177 6575) (list 6000 7191 8177 7541) (list 6000 7191 8177 8352) (list 6000 8002 6400 6575) (list 6000 8002 6400 7541) (list 6000 8002 6400 8352) (list 6000 8002 7366 6575) (list 6000 8002 7366 7541) (list 6000 8002 7366 8352) (list 6000 8002 8177 6575) (list 6000 8002 8177 7541) (list 6000 8002 8177 8352) (list 6966 6225 6400 6575) (list 6966 6225 6400 7541) (list 6966 6225 6400 8352) (list 6966 6225 7366 6575) (list 6966 6225 7366 7541) (list 6966 6225 7366 8352) (list 6966 6225 8177 6575) (list 6966 6225 8177 7541) (list 6966 6225 8177 8352) (list 6966 7191 6400 6575) (list 6966 7191 6400 7541) (list 6966 7191 6400 8352) (list 6966 7191 7366 6575) (list 6966 7191 7366 7541) (list 6966 7191 7366 8352) (list 6966 7191 8177 6575) (list 6966 7191 8177 7541) (list 6966 7191 8177 8352) (list 6966 8002 6400 6575) (list 6966 8002 6400 7541) (list 6966 8002 6400 8352) (list 6966 8002 7366 6575) (list 6966 8002 7366 7541) (list 6966 8002 7366 8352) (list 6966 8002 8177 6575) (list 6966 8002 8177 7541) (list 6966 8002 8177 8352) (list 7777 6225 6400 6575) (list 7777 6225 6400 7541) (list 7777 6225 6400 8352) (list 7777 6225 7366 6575) (list 7777 6225 7366 7541) (list 7777 6225 7366 8352) (list 7777 6225 8177 6575) (list 7777 6225 8177 7541) (list 7777 6225 8177 8352) (list 7777 7191 6400 6575) (list 7777 7191 6400 7541) (list 7777 7191 6400 8352) (list 7777 7191 7366 6575) (list 7777 7191 7366 7541) (list 7777 7191 7366 8352) (list 7777 7191 8177 6575) (list 7777 7191 8177 7541) (list 7777 7191 8177 8352) (list 7777 8002 6400 6575) (list 7777 8002 6400 7541) (list 7777 8002 6400 8352) (list 7777 8002 7366 6575) (list 7777 8002 7366 7541) (list 7777 8002 7366 8352) (list 7777 8002 8177 6575) (list 7777 8002 8177 7541) (list 7777 8002 8177 8352) (list 6050 6200 6350 6500) (list 6050 6200 6350 7466) (list 6050 6200 6350 8277) (list 6050 6200 7316 6500) (list 6050 6200 7316 7466) (list 6050 6200 7316 8277) (list 6050 6200 8127 6500) (list 6050 6200 8127 7466) (list 6050 6200 8127 8277) (list 6050 7166 6350 6500) (list 6050 7166 6350 7466) (list 6050 7166 6350 8277) (list 6050 7166 7316 6500) (list 6050 7166 7316 7466) (list 6050 7166 7316 8277) (list 6050 7166 8127 6500) (list 6050 7166 8127 7466) (list 6050 7166 8127 8277) (list 6050 7977 6350 6500) (list 6050 7977 6350 7466) (list 6050 7977 6350 8277) (list 6050 7977 7316 6500) (list 6050 7977 7316 7466) (list 6050 7977 7316 8277) (list 6050 7977 8127 6500) (list 6050 7977 8127 7466) (list 6050 7977 8127 8277) (list 7016 6200 6350 6500) (list 7016 6200 6350 7466) (list 7016 6200 6350 8277) (list 7016 6200 7316 6500) (list 7016 6200 7316 7466) (list 7016 6200 7316 8277) (list 7016 6200 8127 6500) (list 7016 6200 8127 7466) (list 7016 6200 8127 8277) (list 7016 7166 6350 6500) (list 7016 7166 6350 7466) (list 7016 7166 6350 8277) (list 7016 7166 7316 6500) (list 7016 7166 7316 7466) (list 7016 7166 7316 8277) (list 7016 7166 8127 6500) (list 7016 7166 8127 7466) (list 7016 7166 8127 8277) (list 7016 7977 6350 6500) (list 7016 7977 6350 7466) (list 7016 7977 6350 8277) (list 7016 7977 7316 6500) (list 7016 7977 7316 7466) (list 7016 7977 7316 8277) (list 7016 7977 8127 6500) (list 7016 7977 8127 7466) (list 7016 7977 8127 8277) (list 7827 6200 6350 6500) (list 7827 6200 6350 7466) (list 7827 6200 6350 8277) (list 7827 6200 7316 6500) (list 7827 6200 7316 7466) (list 7827 6200 7316 8277) (list 7827 6200 8127 6500) (list 7827 6200 8127 7466) (list 7827 6200 8127 8277) (list 7827 7166 6350 6500) (list 7827 7166 6350 7466) (list 7827 7166 6350 8277) (list 7827 7166 7316 6500) (list 7827 7166 7316 7466) (list 7827 7166 7316 8277) (list 7827 7166 8127 6500) (list 7827 7166 8127 7466) (list 7827 7166 8127 8277) (list 7827 7977 6350 6500) (list 7827 7977 6350 7466) (list 7827 7977 6350 8277) (list 7827 7977 7316 6500) (list 7827 7977 7316 7466) (list 7827 7977 7316 8277) (list 7827 7977 8127 6500) (list 7827 7977 8127 7466) (list 7827 7977 8127 8277) (list 6050 6275 6450 6625) (list 6050 6275 6450 7591) (list 6050 6275 7416 6625) (list 6050 6275 7416 7591) (list 6050 6275 8227 6625) (list 6050 6275 8227 7591) (list 6050 7241 6450 6625) (list 6050 7241 6450 7591) (list 6050 7241 7416 6625) (list 6050 7241 7416 7591) (list 6050 7241 8227 6625) (list 6050 7241 8227 7591) (list 6050 8052 6450 6625) (list 6050 8052 6450 7591) (list 6050 8052 7416 6625) (list 6050 8052 7416 7591) (list 6050 8052 8227 6625) (list 6050 8052 8227 7591) (list 7016 6275 6450 6625) (list 7016 6275 6450 7591) (list 7016 6275 7416 6625) (list 7016 6275 7416 7591) (list 7016 6275 8227 6625) (list 7016 6275 8227 7591) (list 7016 7241 6450 6625) (list 7016 7241 6450 7591) (list 7016 7241 7416 6625) (list 7016 7241 7416 7591) (list 7016 7241 8227 6625) (list 7016 7241 8227 7591) (list 7016 8052 6450 6625) (list 7016 8052 6450 7591) (list 7016 8052 7416 6625) (list 7016 8052 7416 7591) (list 7016 8052 8227 6625) (list 7016 8052 8227 7591) (list 7827 6275 6450 6625) (list 7827 6275 6450 7591) (list 7827 6275 7416 6625) (list 7827 6275 7416 7591) (list 7827 6275 8227 6625) (list 7827 6275 8227 7591) (list 7827 7241 6450 6625) (list 7827 7241 6450 7591) (list 7827 7241 7416 6625) (list 7827 7241 7416 7591) (list 7827 7241 8227 6625) (list 7827 7241 8227 7591) (list 7827 8052 6450 6625) (list 7827 8052 6450 7591) (list 7827 8052 7416 6625) (list 7827 8052 7416 7591) (list 7827 8052 8227 6625) (list 7827 8052 8227 7591) (list 6100 6250 6400 6550) (list 6100 6250 6400 7516) (list 6100 6250 6400 8327) (list 6100 6250 7366 6550) (list 6100 6250 7366 7516) (list 6100 6250 7366 8327) (list 6100 6250 8177 6550) (list 6100 6250 8177 7516) (list 6100 6250 8177 8327) (list 6100 7216 6400 6550) (list 6100 7216 6400 7516) (list 6100 7216 6400 8327) (list 6100 7216 7366 6550) (list 6100 7216 7366 7516) (list 6100 7216 7366 8327) (list 6100 7216 8177 6550) (list 6100 7216 8177 7516) (list 6100 7216 8177 8327) (list 6100 8027 6400 6550) (list 6100 8027 6400 7516) (list 6100 8027 6400 8327) (list 6100 8027 7366 6550) (list 6100 8027 7366 7516) (list 6100 8027 7366 8327) (list 6100 8027 8177 6550) (list 6100 8027 8177 7516) (list 6100 8027 8177 8327) (list 7066 6250 6400 6550) (list 7066 6250 6400 7516) (list 7066 6250 6400 8327) (list 7066 6250 7366 6550) (list 7066 6250 7366 7516) (list 7066 6250 7366 8327) (list 7066 6250 8177 6550) (list 7066 6250 8177 7516) (list 7066 6250 8177 8327) (list 7066 7216 6400 6550) (list 7066 7216 6400 7516) (list 7066 7216 6400 8327) (list 7066 7216 7366 6550) (list 7066 7216 7366 7516) (list 7066 7216 7366 8327) (list 7066 7216 8177 6550) (list 7066 7216 8177 7516) (list 7066 7216 8177 8327) (list 7066 8027 6400 6550) (list 7066 8027 6400 7516) (list 7066 8027 6400 8327) (list 7066 8027 7366 6550) (list 7066 8027 7366 7516) (list 7066 8027 7366 8327) (list 7066 8027 8177 6550) (list 7066 8027 8177 7516) (list 7066 8027 8177 8327) (list 7877 6250 6400 6550) (list 7877 6250 6400 7516) (list 7877 6250 6400 8327) (list 7877 6250 7366 6550) (list 7877 6250 7366 7516) (list 7877 6250 7366 8327) (list 7877 6250 8177 6550) (list 7877 6250 8177 7516) (list 7877 6250 8177 8327) (list 7877 7216 6400 6550) (list 7877 7216 6400 7516) (list 7877 7216 6400 8327) (list 7877 7216 7366 6550) (list 7877 7216 7366 7516) (list 7877 7216 7366 8327) (list 7877 7216 8177 6550) (list 7877 7216 8177 7516) (list 7877 7216 8177 8327) (list 7877 8027 6400 6550) (list 7877 8027 6400 7516) (list 7877 8027 6400 8327) (list 7877 8027 7366 6550) (list 7877 8027 7366 7516) (list 7877 8027 7366 8327) (list 7877 8027 8177 6550) (list 7877 8027 8177 7516) (list 7877 8027 8177 8327) (list 6100 6325 6500 6675) (list 6100 6325 6500 7641) (list 6100 6325 7466 6675) (list 6100 6325 7466 7641) (list 6100 6325 8277 6675) (list 6100 6325 8277 7641) (list 6100 7291 6500 6675) (list 6100 7291 6500 7641) (list 6100 7291 7466 6675) (list 6100 7291 7466 7641) (list 6100 7291 8277 6675) (list 6100 7291 8277 7641) (list 6100 8102 6500 6675) (list 6100 8102 6500 7641) (list 6100 8102 7466 6675) (list 6100 8102 7466 7641) (list 6100 8102 8277 6675) (list 6100 8102 8277 7641) (list 7066 6325 6500 6675) (list 7066 6325 6500 7641) (list 7066 6325 7466 6675) (list 7066 6325 7466 7641) (list 7066 6325 8277 6675) (list 7066 6325 8277 7641) (list 7066 7291 6500 6675) (list 7066 7291 6500 7641) (list 7066 7291 7466 6675) (list 7066 7291 7466 7641) (list 7066 7291 8277 6675) (list 7066 7291 8277 7641) (list 7066 8102 6500 6675) (list 7066 8102 6500 7641) (list 7066 8102 7466 6675) (list 7066 8102 7466 7641) (list 7066 8102 8277 6675) (list 7066 8102 8277 7641) (list 7877 6325 6500 6675) (list 7877 6325 6500 7641) (list 7877 6325 7466 6675) (list 7877 6325 7466 7641) (list 7877 6325 8277 6675) (list 7877 6325 8277 7641) (list 7877 7291 6500 6675) (list 7877 7291 6500 7641) (list 7877 7291 7466 6675) (list 7877 7291 7466 7641) (list 7877 7291 8277 6675) (list 7877 7291 8277 7641) (list 7877 8102 6500 6675) (list 7877 8102 6500 7641) (list 7877 8102 7466 6675) (list 7877 8102 7466 7641) (list 7877 8102 8277 6675) (list 7877 8102 8277 7641) (list 6150 6300 6450 6600) (list 6150 6300 6450 7566) (list 6150 6300 6450 8377) (list 6150 6300 7416 6600) (list 6150 6300 7416 7566) (list 6150 6300 7416 8377) (list 6150 6300 8227 6600) (list 6150 6300 8227 7566) (list 6150 6300 8227 8377) (list 6150 7266 6450 6600) (list 6150 7266 6450 7566) (list 6150 7266 6450 8377) (list 6150 7266 7416 6600) (list 6150 7266 7416 7566) (list 6150 7266 7416 8377) (list 6150 7266 8227 6600) (list 6150 7266 8227 7566) (list 6150 7266 8227 8377) (list 6150 8077 6450 6600) (list 6150 8077 6450 7566) (list 6150 8077 6450 8377) (list 6150 8077 7416 6600) (list 6150 8077 7416 7566) (list 6150 8077 7416 8377) (list 6150 8077 8227 6600) (list 6150 8077 8227 7566) (list 6150 8077 8227 8377) (list 7116 6300 6450 6600) (list 7116 6300 6450 7566) (list 7116 6300 6450 8377) (list 7116 6300 7416 6600) (list 7116 6300 7416 7566) (list 7116 6300 7416 8377) (list 7116 6300 8227 6600) (list 7116 6300 8227 7566) (list 7116 6300 8227 8377) (list 7116 7266 6450 6600) (list 7116 7266 6450 7566) (list 7116 7266 6450 8377) (list 7116 7266 7416 6600) (list 7116 7266 7416 7566) (list 7116 7266 7416 8377) (list 7116 7266 8227 6600) (list 7116 7266 8227 7566) (list 7116 7266 8227 8377) (list 7116 8077 6450 6600) (list 7116 8077 6450 7566) (list 7116 8077 6450 8377) (list 7116 8077 7416 6600) (list 7116 8077 7416 7566) (list 7116 8077 7416 8377) (list 7116 8077 8227 6600) (list 7116 8077 8227 7566) (list 7116 8077 8227 8377) (list 7927 6300 6450 6600) (list 7927 6300 6450 7566) (list 7927 6300 6450 8377) (list 7927 6300 7416 6600) (list 7927 6300 7416 7566) (list 7927 6300 7416 8377) (list 7927 6300 8227 6600) (list 7927 6300 8227 7566) (list 7927 6300 8227 8377) (list 7927 7266 6450 6600) (list 7927 7266 6450 7566) (list 7927 7266 6450 8377) (list 7927 7266 7416 6600) (list 7927 7266 7416 7566) (list 7927 7266 7416 8377) (list 7927 7266 8227 6600) (list 7927 7266 8227 7566) (list 7927 7266 8227 8377) (list 7927 8077 6450 6600) (list 7927 8077 6450 7566) (list 7927 8077 6450 8377) (list 7927 8077 7416 6600) (list 7927 8077 7416 7566) (list 7927 8077 7416 8377) (list 7927 8077 8227 6600) (list 7927 8077 8227 7566) (list 7927 8077 8227 8377) (list 6150 6375 6550 6725) (list 6150 6375 6550 7691) (list 6150 6375 7516 6725) (list 6150 6375 7516 7691) (list 6150 6375 8327 6725) (list 6150 6375 8327 7691) (list 6150 7341 6550 6725) (list 6150 7341 6550 7691) (list 6150 7341 7516 6725) (list 6150 7341 7516 7691) (list 6150 7341 8327 6725) (list 6150 7341 8327 7691) (list 6150 8152 6550 6725) (list 6150 8152 6550 7691) (list 6150 8152 7516 6725) (list 6150 8152 7516 7691) (list 6150 8152 8327 6725) (list 6150 8152 8327 7691) (list 7116 6375 6550 6725) (list 7116 6375 6550 7691) (list 7116 6375 7516 6725) (list 7116 6375 7516 7691) (list 7116 6375 8327 6725) (list 7116 6375 8327 7691) (list 7116 7341 6550 6725) (list 7116 7341 6550 7691) (list 7116 7341 7516 6725) (list 7116 7341 7516 7691) (list 7116 7341 8327 6725) (list 7116 7341 8327 7691) (list 7116 8152 6550 6725) (list 7116 8152 6550 7691) (list 7116 8152 7516 6725) (list 7116 8152 7516 7691) (list 7116 8152 8327 6725) (list 7116 8152 8327 7691) (list 7927 6375 6550 6725) (list 7927 6375 6550 7691) (list 7927 6375 7516 6725) (list 7927 6375 7516 7691) (list 7927 6375 8327 6725) (list 7927 6375 8327 7691) (list 7927 7341 6550 6725) (list 7927 7341 6550 7691) (list 7927 7341 7516 6725) (list 7927 7341 7516 7691) (list 7927 7341 8327 6725) (list 7927 7341 8327 7691) (list 7927 8152 6550 6725) (list 7927 8152 6550 7691) (list 7927 8152 7516 6725) (list 7927 8152 7516 7691) (list 7927 8152 8327 6725) (list 7927 8152 8327 7691) (list 6200 6350 6500 6650) (list 6200 6350 6500 7616) (list 6200 6350 7466 6650) (list 6200 6350 7466 7616) (list 6200 6350 8277 6650) (list 6200 6350 8277 7616) (list 6200 7316 6500 6650) (list 6200 7316 6500 7616) (list 6200 7316 7466 6650) (list 6200 7316 7466 7616) (list 6200 7316 8277 6650) (list 6200 7316 8277 7616) (list 6200 8127 6500 6650) (list 6200 8127 6500 7616) (list 6200 8127 7466 6650) (list 6200 8127 7466 7616) (list 6200 8127 8277 6650) (list 6200 8127 8277 7616) (list 7166 6350 6500 6650) (list 7166 6350 6500 7616) (list 7166 6350 7466 6650) (list 7166 6350 7466 7616) (list 7166 6350 8277 6650) (list 7166 6350 8277 7616) (list 7166 7316 6500 6650) (list 7166 7316 6500 7616) (list 7166 7316 7466 6650) (list 7166 7316 7466 7616) (list 7166 7316 8277 6650) (list 7166 7316 8277 7616) (list 7166 8127 6500 6650) (list 7166 8127 6500 7616) (list 7166 8127 7466 6650) (list 7166 8127 7466 7616) (list 7166 8127 8277 6650) (list 7166 8127 8277 7616) (list 7977 6350 6500 6650) (list 7977 6350 6500 7616) (list 7977 6350 7466 6650) (list 7977 6350 7466 7616) (list 7977 6350 8277 6650) (list 7977 6350 8277 7616) (list 7977 7316 6500 6650) (list 7977 7316 6500 7616) (list 7977 7316 7466 6650) (list 7977 7316 7466 7616) (list 7977 7316 8277 6650) (list 7977 7316 8277 7616) (list 7977 8127 6500 6650) (list 7977 8127 6500 7616) (list 7977 8127 7466 6650) (list 7977 8127 7466 7616) (list 7977 8127 8277 6650) (list 7977 8127 8277 7616) (list 6200 6425 6600 6775) (list 6200 6425 6600 7741) (list 6200 6425 7566 6775) (list 6200 6425 7566 7741) (list 6200 6425 8377 6775) (list 6200 6425 8377 7741) (list 6200 7391 6600 6775) (list 6200 7391 6600 7741) (list 6200 7391 7566 6775) (list 6200 7391 7566 7741) (list 6200 7391 8377 6775) (list 6200 7391 8377 7741) (list 6200 8202 6600 6775) (list 6200 8202 6600 7741) (list 6200 8202 7566 6775) (list 6200 8202 7566 7741) (list 6200 8202 8377 6775) (list 6200 8202 8377 7741) (list 7166 6425 6600 6775) (list 7166 6425 6600 7741) (list 7166 6425 7566 6775) (list 7166 6425 7566 7741) (list 7166 6425 8377 6775) (list 7166 6425 8377 7741) (list 7166 7391 6600 6775) (list 7166 7391 6600 7741) (list 7166 7391 7566 6775) (list 7166 7391 7566 7741) (list 7166 7391 8377 6775) (list 7166 7391 8377 7741) (list 7166 8202 6600 6775) (list 7166 8202 6600 7741) (list 7166 8202 7566 6775) (list 7166 8202 7566 7741) (list 7166 8202 8377 6775) (list 7166 8202 8377 7741) (list 7977 6425 6600 6775) (list 7977 6425 6600 7741) (list 7977 6425 7566 6775) (list 7977 6425 7566 7741) (list 7977 6425 8377 6775) (list 7977 6425 8377 7741) (list 7977 7391 6600 6775) (list 7977 7391 6600 7741) (list 7977 7391 7566 6775) (list 7977 7391 7566 7741) (list 7977 7391 8377 6775) (list 7977 7391 8377 7741) (list 7977 8202 6600 6775) (list 7977 8202 6600 7741) (list 7977 8202 7566 6775) (list 7977 8202 7566 7741) (list 7977 8202 8377 6775) (list 7977 8202 8377 7741) (list 6250 6400 6550 6700) (list 6250 6400 6550 7666) (list 6250 6400 7516 6700) (list 6250 6400 7516 7666) (list 6250 6400 8327 6700) (list 6250 6400 8327 7666) (list 6250 7366 6550 6700) (list 6250 7366 6550 7666) (list 6250 7366 7516 6700) (list 6250 7366 7516 7666) (list 6250 7366 8327 6700) (list 6250 7366 8327 7666) (list 6250 8177 6550 6700) (list 6250 8177 6550 7666) (list 6250 8177 7516 6700) (list 6250 8177 7516 7666) (list 6250 8177 8327 6700) (list 6250 8177 8327 7666) (list 7216 6400 6550 6700) (list 7216 6400 6550 7666) (list 7216 6400 7516 6700) (list 7216 6400 7516 7666) (list 7216 6400 8327 6700) (list 7216 6400 8327 7666) (list 7216 7366 6550 6700) (list 7216 7366 6550 7666) (list 7216 7366 7516 6700) (list 7216 7366 7516 7666) (list 7216 7366 8327 6700) (list 7216 7366 8327 7666) (list 7216 8177 6550 6700) (list 7216 8177 6550 7666) (list 7216 8177 7516 6700) (list 7216 8177 7516 7666) (list 7216 8177 8327 6700) (list 7216 8177 8327 7666) (list 8027 6400 6550 6700) (list 8027 6400 6550 7666) (list 8027 6400 7516 6700) (list 8027 6400 7516 7666) (list 8027 6400 8327 6700) (list 8027 6400 8327 7666) (list 8027 7366 6550 6700) (list 8027 7366 6550 7666) (list 8027 7366 7516 6700) (list 8027 7366 7516 7666) (list 8027 7366 8327 6700) (list 8027 7366 8327 7666) (list 8027 8177 6550 6700) (list 8027 8177 6550 7666) (list 8027 8177 7516 6700) (list 8027 8177 7516 7666) (list 8027 8177 8327 6700) (list 8027 8177 8327 7666) (list 6250 6475 6650 6825) (list 6250 6475 6650 7791) (list 6250 6475 7616 6825) (list 6250 6475 7616 7791) (list 6250 7441 6650 6825) (list 6250 7441 6650 7791) (list 6250 7441 7616 6825) (list 6250 7441 7616 7791) (list 6250 8252 6650 6825) (list 6250 8252 6650 7791) (list 6250 8252 7616 6825) (list 6250 8252 7616 7791) (list 7216 6475 6650 6825) (list 7216 6475 6650 7791) (list 7216 6475 7616 6825) (list 7216 6475 7616 7791) (list 7216 7441 6650 6825) (list 7216 7441 6650 7791) (list 7216 7441 7616 6825) (list 7216 7441 7616 7791) (list 7216 8252 6650 6825) (list 7216 8252 6650 7791) (list 7216 8252 7616 6825) (list 7216 8252 7616 7791) (list 8027 6475 6650 6825) (list 8027 6475 6650 7791) (list 8027 6475 7616 6825) (list 8027 6475 7616 7791) (list 8027 7441 6650 6825) (list 8027 7441 6650 7791) (list 8027 7441 7616 6825) (list 8027 7441 7616 7791) (list 8027 8252 6650 6825) (list 8027 8252 6650 7791) (list 8027 8252 7616 6825) (list 8027 8252 7616 7791) (list 6300 6450 6600 6750) (list 6300 6450 6600 7716) (list 6300 6450 7566 6750) (list 6300 6450 7566 7716) (list 6300 6450 8377 6750) (list 6300 6450 8377 7716) (list 6300 7416 6600 6750) (list 6300 7416 6600 7716) (list 6300 7416 7566 6750) (list 6300 7416 7566 7716) (list 6300 7416 8377 6750) (list 6300 7416 8377 7716) (list 6300 8227 6600 6750) (list 6300 8227 6600 7716) (list 6300 8227 7566 6750) (list 6300 8227 7566 7716) (list 6300 8227 8377 6750) (list 6300 8227 8377 7716) (list 7266 6450 6600 6750) (list 7266 6450 6600 7716) (list 7266 6450 7566 6750) (list 7266 6450 7566 7716) (list 7266 6450 8377 6750) (list 7266 6450 8377 7716) (list 7266 7416 6600 6750) (list 7266 7416 6600 7716) (list 7266 7416 7566 6750) (list 7266 7416 7566 7716) (list 7266 7416 8377 6750) (list 7266 7416 8377 7716) (list 7266 8227 6600 6750) (list 7266 8227 6600 7716) (list 7266 8227 7566 6750) (list 7266 8227 7566 7716) (list 7266 8227 8377 6750) (list 7266 8227 8377 7716) (list 8077 6450 6600 6750) (list 8077 6450 6600 7716) (list 8077 6450 7566 6750) (list 8077 6450 7566 7716) (list 8077 6450 8377 6750) (list 8077 6450 8377 7716) (list 8077 7416 6600 6750) (list 8077 7416 6600 7716) (list 8077 7416 7566 6750) (list 8077 7416 7566 7716) (list 8077 7416 8377 6750) (list 8077 7416 8377 7716) (list 8077 8227 6600 6750) (list 8077 8227 6600 7716) (list 8077 8227 7566 6750) (list 8077 8227 7566 7716) (list 8077 8227 8377 6750) (list 8077 8227 8377 7716) (list 6300 6525 6700 6875) (list 6300 6525 6700 7841) (list 6300 6525 7666 6875) (list 6300 6525 7666 7841) (list 6300 7491 6700 6875) (list 6300 7491 6700 7841) (list 6300 7491 7666 6875) (list 6300 7491 7666 7841) (list 6300 8302 6700 6875) (list 6300 8302 6700 7841) (list 6300 8302 7666 6875) (list 6300 8302 7666 7841) (list 7266 6525 6700 6875) (list 7266 6525 6700 7841) (list 7266 6525 7666 6875) (list 7266 6525 7666 7841) (list 7266 7491 6700 6875) (list 7266 7491 6700 7841) (list 7266 7491 7666 6875) (list 7266 7491 7666 7841) (list 7266 8302 6700 6875) (list 7266 8302 6700 7841) (list 7266 8302 7666 6875) (list 7266 8302 7666 7841) (list 8077 6525 6700 6875) (list 8077 6525 6700 7841) (list 8077 6525 7666 6875) (list 8077 6525 7666 7841) (list 8077 7491 6700 6875) (list 8077 7491 6700 7841) (list 8077 7491 7666 6875) (list 8077 7491 7666 7841) (list 8077 8302 6700 6875) (list 8077 8302 6700 7841) (list 8077 8302 7666 6875) (list 8077 8302 7666 7841) (list 6350 6500 6650 6800) (list 6350 6500 6650 7766) (list 6350 6500 7616 6800) (list 6350 6500 7616 7766) (list 6350 7466 6650 6800) (list 6350 7466 6650 7766) (list 6350 7466 7616 6800) (list 6350 7466 7616 7766) (list 6350 8277 6650 6800) (list 6350 8277 6650 7766) (list 6350 8277 7616 6800) (list 6350 8277 7616 7766) (list 7316 6500 6650 6800) (list 7316 6500 6650 7766) (list 7316 6500 7616 6800) (list 7316 6500 7616 7766) (list 7316 7466 6650 6800) (list 7316 7466 6650 7766) (list 7316 7466 7616 6800) (list 7316 7466 7616 7766) (list 7316 8277 6650 6800) (list 7316 8277 6650 7766) (list 7316 8277 7616 6800) (list 7316 8277 7616 7766) (list 8127 6500 6650 6800) (list 8127 6500 6650 7766) (list 8127 6500 7616 6800) (list 8127 6500 7616 7766) (list 8127 7466 6650 6800) (list 8127 7466 6650 7766) (list 8127 7466 7616 6800) (list 8127 7466 7616 7766) (list 8127 8277 6650 6800) (list 8127 8277 6650 7766) (list 8127 8277 7616 6800) (list 8127 8277 7616 7766) (list 6350 6575 6750 6925) (list 6350 6575 6750 7891) (list 6350 6575 7716 6925) (list 6350 6575 7716 7891) (list 6350 7541 6750 6925) (list 6350 7541 6750 7891) (list 6350 7541 7716 6925) (list 6350 7541 7716 7891) (list 6350 8352 6750 6925) (list 6350 8352 6750 7891) (list 6350 8352 7716 6925) (list 6350 8352 7716 7891) (list 7316 6575 6750 6925) (list 7316 6575 6750 7891) (list 7316 6575 7716 6925) (list 7316 6575 7716 7891) (list 7316 7541 6750 6925) (list 7316 7541 6750 7891) (list 7316 7541 7716 6925) (list 7316 7541 7716 7891) (list 7316 8352 6750 6925) (list 7316 8352 6750 7891) (list 7316 8352 7716 6925) (list 7316 8352 7716 7891) (list 8127 6575 6750 6925) (list 8127 6575 6750 7891) (list 8127 6575 7716 6925) (list 8127 6575 7716 7891) (list 8127 7541 6750 6925) (list 8127 7541 6750 7891) (list 8127 7541 7716 6925) (list 8127 7541 7716 7891) (list 8127 8352 6750 6925) (list 8127 8352 6750 7891) (list 8127 8352 7716 6925) (list 8127 8352 7716 7891) (list 6400 6550 6700 6850) (list 6400 6550 6700 7816) (list 6400 6550 7666 6850) (list 6400 6550 7666 7816) (list 6400 7516 6700 6850) (list 6400 7516 6700 7816) (list 6400 7516 7666 6850) (list 6400 7516 7666 7816) (list 6400 8327 6700 6850) (list 6400 8327 6700 7816) (list 6400 8327 7666 6850) (list 6400 8327 7666 7816) (list 7366 6550 6700 6850) (list 7366 6550 6700 7816) (list 7366 6550 7666 6850) (list 7366 6550 7666 7816) (list 7366 7516 6700 6850) (list 7366 7516 6700 7816) (list 7366 7516 7666 6850) (list 7366 7516 7666 7816) (list 7366 8327 6700 6850) (list 7366 8327 6700 7816) (list 7366 8327 7666 6850) (list 7366 8327 7666 7816) (list 8177 6550 6700 6850) (list 8177 6550 6700 7816) (list 8177 6550 7666 6850) (list 8177 6550 7666 7816) (list 8177 7516 6700 6850) (list 8177 7516 6700 7816) (list 8177 7516 7666 6850) (list 8177 7516 7666 7816) (list 8177 8327 6700 6850) (list 8177 8327 6700 7816) (list 8177 8327 7666 6850) (list 8177 8327 7666 7816) (list 6400 6625 6800 6975) (list 6400 6625 6800 7941) (list 6400 6625 7766 6975) (list 6400 6625 7766 7941) (list 6400 7591 6800 6975) (list 6400 7591 6800 7941) (list 6400 7591 7766 6975) (list 6400 7591 7766 7941) (list 7366 6625 6800 6975) (list 7366 6625 6800 7941) (list 7366 6625 7766 6975) (list 7366 6625 7766 7941) (list 7366 7591 6800 6975) (list 7366 7591 6800 7941) (list 7366 7591 7766 6975) (list 7366 7591 7766 7941) (list 8177 6625 6800 6975) (list 8177 6625 6800 7941) (list 8177 6625 7766 6975) (list 8177 6625 7766 7941) (list 8177 7591 6800 6975) (list 8177 7591 6800 7941) (list 8177 7591 7766 6975) (list 8177 7591 7766 7941) (list 6450 6600 6750 6900) (list 6450 6600 6750 7866) (list 6450 6600 7716 6900) (list 6450 6600 7716 7866) (list 6450 7566 6750 6900) (list 6450 7566 6750 7866) (list 6450 7566 7716 6900) (list 6450 7566 7716 7866) (list 6450 8377 6750 6900) (list 6450 8377 6750 7866) (list 6450 8377 7716 6900) (list 6450 8377 7716 7866) (list 7416 6600 6750 6900) (list 7416 6600 6750 7866) (list 7416 6600 7716 6900) (list 7416 6600 7716 7866) (list 7416 7566 6750 6900) (list 7416 7566 6750 7866) (list 7416 7566 7716 6900) (list 7416 7566 7716 7866) (list 7416 8377 6750 6900) (list 7416 8377 6750 7866) (list 7416 8377 7716 6900) (list 7416 8377 7716 7866) (list 8227 6600 6750 6900) (list 8227 6600 6750 7866) (list 8227 6600 7716 6900) (list 8227 6600 7716 7866) (list 8227 7566 6750 6900) (list 8227 7566 6750 7866) (list 8227 7566 7716 6900) (list 8227 7566 7716 7866) (list 8227 8377 6750 6900) (list 8227 8377 6750 7866) (list 8227 8377 7716 6900) (list 8227 8377 7716 7866) (list 6450 6675 6850 7025) (list 6450 6675 6850 7991) (list 6450 6675 7816 7025) (list 6450 6675 7816 7991) (list 6450 7641 6850 7025) (list 6450 7641 6850 7991) (list 6450 7641 7816 7025) (list 6450 7641 7816 7991) (list 7416 6675 6850 7025) (list 7416 6675 6850 7991) (list 7416 6675 7816 7025) (list 7416 6675 7816 7991) (list 7416 7641 6850 7025) (list 7416 7641 6850 7991) (list 7416 7641 7816 7025) (list 7416 7641 7816 7991) (list 8227 6675 6850 7025) (list 8227 6675 6850 7991) (list 8227 6675 7816 7025) (list 8227 6675 7816 7991) (list 8227 7641 6850 7025) (list 8227 7641 6850 7991) (list 8227 7641 7816 7025) (list 8227 7641 7816 7991) (list 6500 6650 6800 6950) (list 6500 6650 6800 7916) (list 6500 6650 7766 6950) (list 6500 6650 7766 7916) (list 6500 7616 6800 6950) (list 6500 7616 6800 7916) (list 6500 7616 7766 6950) (list 6500 7616 7766 7916) (list 7466 6650 6800 6950) (list 7466 6650 6800 7916) (list 7466 6650 7766 6950) (list 7466 6650 7766 7916) (list 7466 7616 6800 6950) (list 7466 7616 6800 7916) (list 7466 7616 7766 6950) (list 7466 7616 7766 7916) (list 8277 6650 6800 6950) (list 8277 6650 6800 7916) (list 8277 6650 7766 6950) (list 8277 6650 7766 7916) (list 8277 7616 6800 6950) (list 8277 7616 6800 7916) (list 8277 7616 7766 6950) (list 8277 7616 7766 7916) (list 6500 6725 6900 7075) (list 6500 6725 6900 8041) (list 6500 6725 7866 7075) (list 6500 6725 7866 8041) (list 6500 7691 6900 7075) (list 6500 7691 6900 8041) (list 6500 7691 7866 7075) (list 6500 7691 7866 8041) (list 7466 6725 6900 7075) (list 7466 6725 6900 8041) (list 7466 6725 7866 7075) (list 7466 6725 7866 8041) (list 7466 7691 6900 7075) (list 7466 7691 6900 8041) (list 7466 7691 7866 7075) (list 7466 7691 7866 8041) (list 8277 6725 6900 7075) (list 8277 6725 6900 8041) (list 8277 6725 7866 7075) (list 8277 6725 7866 8041) (list 8277 7691 6900 7075) (list 8277 7691 6900 8041) (list 8277 7691 7866 7075) (list 8277 7691 7866 8041) (list 6550 6700 6850 7000) (list 6550 6700 6850 7966) (list 6550 6700 7816 7000) (list 6550 6700 7816 7966) (list 6550 7666 6850 7000) (list 6550 7666 6850 7966) (list 6550 7666 7816 7000) (list 6550 7666 7816 7966) (list 7516 6700 6850 7000) (list 7516 6700 6850 7966) (list 7516 6700 7816 7000) (list 7516 6700 7816 7966) (list 7516 7666 6850 7000) (list 7516 7666 6850 7966) (list 7516 7666 7816 7000) (list 7516 7666 7816 7966) (list 8327 6700 6850 7000) (list 8327 6700 6850 7966) (list 8327 6700 7816 7000) (list 8327 6700 7816 7966) (list 8327 7666 6850 7000) (list 8327 7666 6850 7966) (list 8327 7666 7816 7000) (list 8327 7666 7816 7966) (list 6550 6775 6950 7125) (list 6550 6775 6950 8091) (list 6550 6775 7916 7125) (list 6550 6775 7916 8091) (list 6550 7741 6950 7125) (list 6550 7741 6950 8091) (list 6550 7741 7916 7125) (list 6550 7741 7916 8091) (list 7516 6775 6950 7125) (list 7516 6775 6950 8091) (list 7516 6775 7916 7125) (list 7516 6775 7916 8091) (list 7516 7741 6950 7125) (list 7516 7741 6950 8091) (list 7516 7741 7916 7125) (list 7516 7741 7916 8091) (list 8327 6775 6950 7125) (list 8327 6775 6950 8091) (list 8327 6775 7916 7125) (list 8327 6775 7916 8091) (list 8327 7741 6950 7125) (list 8327 7741 6950 8091) (list 8327 7741 7916 7125) (list 8327 7741 7916 8091) (list 6600 6750 6900 7050) (list 6600 6750 6900 8016) (list 6600 6750 7866 7050) (list 6600 6750 7866 8016) (list 6600 7716 6900 7050) (list 6600 7716 6900 8016) (list 6600 7716 7866 7050) (list 6600 7716 7866 8016) (list 7566 6750 6900 7050) (list 7566 6750 6900 8016) (list 7566 6750 7866 7050) (list 7566 6750 7866 8016) (list 7566 7716 6900 7050) (list 7566 7716 6900 8016) (list 7566 7716 7866 7050) (list 7566 7716 7866 8016) (list 8377 6750 6900 7050) (list 8377 6750 6900 8016) (list 8377 6750 7866 7050) (list 8377 6750 7866 8016) (list 8377 7716 6900 7050) (list 8377 7716 6900 8016) (list 8377 7716 7866 7050) (list 8377 7716 7866 8016) (list 6600 6825 7000 7175) (list 6600 6825 7000 8141) (list 6600 6825 7966 7175) (list 6600 6825 7966 8141) (list 6600 7791 7000 7175) (list 6600 7791 7000 8141) (list 6600 7791 7966 7175) (list 6600 7791 7966 8141) (list 7566 6825 7000 7175) (list 7566 6825 7000 8141) (list 7566 6825 7966 7175) (list 7566 6825 7966 8141) (list 7566 7791 7000 7175) (list 7566 7791 7000 8141) (list 7566 7791 7966 7175) (list 7566 7791 7966 8141) (list 8377 6825 7000 7175) (list 8377 6825 7000 8141) (list 8377 6825 7966 7175) (list 8377 6825 7966 8141) (list 8377 7791 7000 7175) (list 8377 7791 7000 8141) (list 8377 7791 7966 7175) (list 8377 7791 7966 8141) (list 6650 6800 6950 7100) (list 6650 6800 6950 8066) (list 6650 6800 7916 7100) (list 6650 6800 7916 8066) (list 6650 7766 6950 7100) (list 6650 7766 6950 8066) (list 6650 7766 7916 7100) (list 6650 7766 7916 8066) (list 7616 6800 6950 7100) (list 7616 6800 6950 8066) (list 7616 6800 7916 7100) (list 7616 6800 7916 8066) (list 7616 7766 6950 7100) (list 7616 7766 6950 8066) (list 7616 7766 7916 7100) (list 7616 7766 7916 8066) (list 6650 6875 7050 7225) (list 6650 6875 7050 8191) (list 6650 6875 8016 7225) (list 6650 6875 8016 8191) (list 6650 7841 7050 7225) (list 6650 7841 7050 8191) (list 6650 7841 8016 7225) (list 6650 7841 8016 8191) (list 7616 6875 7050 7225) (list 7616 6875 7050 8191) (list 7616 6875 8016 7225) (list 7616 6875 8016 8191) (list 7616 7841 7050 7225) (list 7616 7841 7050 8191) (list 7616 7841 8016 7225) (list 7616 7841 8016 8191) (list 6700 6850 7000 7150) (list 6700 6850 7000 8116) (list 6700 6850 7966 7150) (list 6700 6850 7966 8116) (list 6700 7816 7000 7150) (list 6700 7816 7000 8116) (list 6700 7816 7966 7150) (list 6700 7816 7966 8116) (list 7666 6850 7000 7150) (list 7666 6850 7000 8116) (list 7666 6850 7966 7150) (list 7666 6850 7966 8116) (list 7666 7816 7000 7150) (list 7666 7816 7000 8116) (list 7666 7816 7966 7150) (list 7666 7816 7966 8116) (list 6700 6925 7100 7275) (list 6700 6925 7100 8241) (list 6700 6925 8066 7275) (list 6700 6925 8066 8241) (list 6700 7891 7100 7275) (list 6700 7891 7100 8241) (list 6700 7891 8066 7275) (list 6700 7891 8066 8241) (list 7666 6925 7100 7275) (list 7666 6925 7100 8241) (list 7666 6925 8066 7275) (list 7666 6925 8066 8241) (list 7666 7891 7100 7275) (list 7666 7891 7100 8241) (list 7666 7891 8066 7275) (list 7666 7891 8066 8241) (list 6750 6900 7050 7200) (list 6750 6900 7050 8166) (list 6750 6900 8016 7200) (list 6750 6900 8016 8166) (list 6750 7866 7050 7200) (list 6750 7866 7050 8166) (list 6750 7866 8016 7200) (list 6750 7866 8016 8166) (list 7716 6900 7050 7200) (list 7716 6900 7050 8166) (list 7716 6900 8016 7200) (list 7716 6900 8016 8166) (list 7716 7866 7050 7200) (list 7716 7866 7050 8166) (list 7716 7866 8016 7200) (list 7716 7866 8016 8166) (list 6750 6975 7150 7325) (list 6750 6975 7150 8291) (list 6750 6975 8116 7325) (list 6750 6975 8116 8291) (list 6750 7941 7150 7325) (list 6750 7941 7150 8291) (list 6750 7941 8116 7325) (list 6750 7941 8116 8291) (list 7716 6975 7150 7325) (list 7716 6975 7150 8291) (list 7716 6975 8116 7325) (list 7716 6975 8116 8291) (list 7716 7941 7150 7325) (list 7716 7941 7150 8291) (list 7716 7941 8116 7325) (list 7716 7941 8116 8291) (list 6800 6950 7100 7250) (list 6800 6950 7100 8216) (list 6800 6950 8066 7250) (list 6800 6950 8066 8216) (list 6800 7916 7100 7250) (list 6800 7916 7100 8216) (list 6800 7916 8066 7250) (list 6800 7916 8066 8216) (list 7766 6950 7100 7250) (list 7766 6950 7100 8216) (list 7766 6950 8066 7250) (list 7766 6950 8066 8216) (list 7766 7916 7100 7250) (list 7766 7916 7100 8216) (list 7766 7916 8066 7250) (list 7766 7916 8066 8216) (list 6800 7025 7200 7375) (list 6800 7025 7200 8341) (list 6800 7025 8166 7375) (list 6800 7025 8166 8341) (list 6800 7991 7200 7375) (list 6800 7991 7200 8341) (list 6800 7991 8166 7375) (list 6800 7991 8166 8341) (list 7766 7025 7200 7375) (list 7766 7025 7200 8341) (list 7766 7025 8166 7375) (list 7766 7025 8166 8341) (list 7766 7991 7200 7375) (list 7766 7991 7200 8341) (list 7766 7991 8166 7375) (list 7766 7991 8166 8341) (list 6850 7000 7150 7300) (list 6850 7000 7150 8266) (list 6850 7000 8116 7300) (list 6850 7000 8116 8266) (list 6850 7966 7150 7300) (list 6850 7966 7150 8266) (list 6850 7966 8116 7300) (list 6850 7966 8116 8266) (list 7816 7000 7150 7300) (list 7816 7000 7150 8266) (list 7816 7000 8116 7300) (list 7816 7000 8116 8266) (list 7816 7966 7150 7300) (list 7816 7966 7150 8266) (list 7816 7966 8116 7300) (list 7816 7966 8116 8266) (list 6850 7075 7250 7425) (list 6850 7075 7250 8391) (list 6850 7075 8216 7425) (list 6850 7075 8216 8391) (list 6850 8041 7250 7425) (list 6850 8041 7250 8391) (list 6850 8041 8216 7425) (list 6850 8041 8216 8391) (list 7816 7075 7250 7425) (list 7816 7075 7250 8391) (list 7816 7075 8216 7425) (list 7816 7075 8216 8391) (list 7816 8041 7250 7425) (list 7816 8041 7250 8391) (list 7816 8041 8216 7425) (list 7816 8041 8216 8391) (list 6900 7050 7200 7350) (list 6900 7050 7200 8316) (list 6900 7050 8166 7350) (list 6900 7050 8166 8316) (list 6900 8016 7200 7350) (list 6900 8016 7200 8316) (list 6900 8016 8166 7350) (list 6900 8016 8166 8316) (list 7866 7050 7200 7350) (list 7866 7050 7200 8316) (list 7866 7050 8166 7350) (list 7866 7050 8166 8316) (list 7866 8016 7200 7350) (list 7866 8016 7200 8316) (list 7866 8016 8166 7350) (list 7866 8016 8166 8316) (list 6900 7125 7300 7475) (list 6900 7125 8266 7475) (list 6900 8091 7300 7475) (list 6900 8091 8266 7475) (list 7866 7125 7300 7475) (list 7866 7125 8266 7475) (list 7866 8091 7300 7475) (list 7866 8091 8266 7475) (list 6950 7100 7250 7400) (list 6950 7100 7250 8366) (list 6950 7100 8216 7400) (list 6950 7100 8216 8366) (list 6950 8066 7250 7400) (list 6950 8066 7250 8366) (list 6950 8066 8216 7400) (list 6950 8066 8216 8366) (list 7916 7100 7250 7400) (list 7916 7100 7250 8366) (list 7916 7100 8216 7400) (list 7916 7100 8216 8366) (list 7916 8066 7250 7400) (list 7916 8066 7250 8366) (list 7916 8066 8216 7400) (list 7916 8066 8216 8366) (list 6950 7175 7350 7525) (list 6950 7175 8316 7525) (list 6950 8141 7350 7525) (list 6950 8141 8316 7525) (list 7916 7175 7350 7525) (list 7916 7175 8316 7525) (list 7916 8141 7350 7525) (list 7916 8141 8316 7525) (list 7000 7150 7300 7450) (list 7000 7150 8266 7450) (list 7000 8116 7300 7450) (list 7000 8116 8266 7450) (list 7966 7150 7300 7450) (list 7966 7150 8266 7450) (list 7966 8116 7300 7450) (list 7966 8116 8266 7450) (list 7000 7225 7400 7575) (list 7000 7225 8366 7575) (list 7000 8191 7400 7575) (list 7000 8191 8366 7575) (list 7966 7225 7400 7575) (list 7966 7225 8366 7575) (list 7966 8191 7400 7575) (list 7966 8191 8366 7575) (list 7050 7200 7350 7500) (list 7050 7200 8316 7500) (list 7050 8166 7350 7500) (list 7050 8166 8316 7500) (list 8016 7200 7350 7500) (list 8016 7200 8316 7500) (list 8016 8166 7350 7500) (list 8016 8166 8316 7500) (list 7050 7275 7450 7625) (list 7050 8241 7450 7625) (list 8016 7275 7450 7625) (list 8016 8241 7450 7625) (list 7100 7250 7400 7550) (list 7100 7250 8366 7550) (list 7100 8216 7400 7550) (list 7100 8216 8366 7550) (list 8066 7250 7400 7550) (list 8066 7250 8366 7550) (list 8066 8216 7400 7550) (list 8066 8216 8366 7550) (list 7100 7325 7500 7675) (list 7100 8291 7500 7675) (list 8066 7325 7500 7675) (list 8066 8291 7500 7675) (list 7150 7300 7450 7600) (list 7150 8266 7450 7600) (list 8116 7300 7450 7600) (list 8116 8266 7450 7600) (list 7150 7375 7550 7725) (list 7150 8341 7550 7725) (list 8116 7375 7550 7725) (list 8116 8341 7550 7725) (list 7200 7350 7500 7650) (list 7200 8316 7500 7650) (list 8166 7350 7500 7650) (list 8166 8316 7500 7650) (list 7200 7425 7600 7775) (list 7200 8391 7600 7775) (list 8166 7425 7600 7775) (list 8166 8391 7600 7775) (list 7250 7400 7550 7700) (list 7250 8366 7550 7700) (list 8216 7400 7550 7700) (list 8216 8366 7550 7700) (list 7250 7475 7650 7825) (list 8216 7475 7650 7825) (list 7300 7450 7600 7750) (list 8266 7450 7600 7750) (list 7300 7525 7700 7875) (list 8266 7525 7700 7875) (list 7350 7500 7650 7800) (list 8316 7500 7650 7800) (list 7350 7575 7750 7925) (list 8316 7575 7750 7925) (list 7400 7550 7700 7850) (list 8366 7550 7700 7850) (list 7400 7625 7800 7975) (list 8366 7625 7800 7975) (list 7450 7600 7750 7900) (list 7450 7675 7850 8025) (list 7500 7650 7800 7950) (list 7500 7725 7900 8075) (list 7550 7700 7850 8000) (list 7550 7775 7950 8125) (list 7600 7750 7900 8050) (list 7600 7825 8000 8175) (list 7650 7800 7950 8100) (list 7650 7875 8050 8225) (list 7700 7850 8000 8150) (list 7700 7925 8100 8275) (list 7750 7900 8050 8200) (list 7750 7975 8150 8325) (list 7800 7950 8100 8250) (list 7800 8025 8200 8375)) (list (list 7850 8000 8150 8300) (list 7900 8050 8200 8350) (list 7950 8100 8250 8400)))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 4 111) (om-make-point 217 30) (list (list 0 150 300 450) (list 0 225 400 575)) "((0 150 300 450) (0 225 400 575))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD 4" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 220 80) (om-make-point 61 113) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote ff) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 514 453) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD 3" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 290 80) (om-make-point 59 113) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote gf) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 533 344) (om-make-point 282 78) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD 2" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 360 80) (om-make-point 61 112) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD" (quote chord) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (list of midicents)" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "velocities (list of values 0-127)" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (list of values in ms)" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "durations (list of values in ms)" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "MIDI channels (list of values 0-16)" "lchan" (list 1)))) (om-make-point 430 80) (om-make-point 60 106) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000 8400)) :ldur (quote (1000 1000)) :lvel (quote (100 100)) :loffset (quote (0 0)) :lchan (quote (1 1))))) (load-port-info thechord (quote (0 0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 459 317) (om-make-point 400 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 340 310) (om-make-point 44 30) (list 50) "(50)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 310 190) (om-make-point 48 30) 5700 "5700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "NOTE" (quote note) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitch (midicents)" "midic" 6000) (om-load-inputfun (quote input-funbox) "velocity (0-127)" "vel" 80) (om-load-inputfun (quote input-funbox) "duration (ms)" "dur" 1000) (om-load-inputfun (quote input-funbox) "MIDI channel (1-16)" "chan" 1))) (om-make-point 310 220) (om-make-point 61 75) (if (find-class (quote note) nil) (let ((newobj (make-instance (quote note) :midic 5700 :vel 80 :dur 1000 :chan 1 :from-file t))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 300 20) 0 0 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 390 310) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 430 190) (om-make-point 126 30) (list 0 966 1777 3050) "(0 966 1777 3050)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 450 40) (om-make-point 90 30) (list 6000 8400) "(6000 8400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 4 1 nil 0) (2 0 4 2 nil 0) (1 0 4 3 nil 0) (3 0 4 4 nil 0) (6 0 5 0 nil 0) (7 1 5 1 nil 0) (8 1 5 2 nil 0) (9 1 5 3 nil 0) (10 1 5 4 nil 0) (13 1 5 5 nil 0) (11 0 5 6 nil 0) (14 0 5 7 nil 0) (15 0 5 8 nil 0) (16 0 7 1 nil 0) (16 0 8 1 nil 0) (16 0 9 1 nil 0) (16 0 10 1 nil 0) (12 0 13 1 nil 0))) nil 7.02))
diff --git a/examples/02_vertical-composition/harmon-database_no-voice-permutation.omp b/examples/02_vertical-composition/harmon-database_no-voice-permutation.omp
index fd2507c..ab00ac3 100644
--- a/examples/02_vertical-composition/harmon-database_no-voice-permutation.omp
+++ b/examples/02_vertical-composition/harmon-database_no-voice-permutation.omp
@@ -1,5 +1,5 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 103 192) (om-make-point 50 50) (om-make-point 1225 687) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :patc (om-make-point 103 192) (om-make-point 50 50) (om-make-point 1225 687) "" 183 0 nil "2023/12/09 18:23:08")
; End File Header
; External resources
; (list (list (quote :sound) "#P\"../../Praesentation/out-files/CHORD-SEQ.aiff\""))
diff --git a/examples/02_vertical-composition/harmon-database_skala.omp b/examples/02_vertical-composition/harmon-database_skala.omp
index bf48a19..7953975 100644
--- a/examples/02_vertical-composition/harmon-database_skala.omp
+++ b/examples/02_vertical-composition/harmon-database_skala.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 194 168) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :patc (om-make-point 194 168) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil "2023/12/09 18:23:08")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-database_skala" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 352 30) (quote "How to build an transposable major-scale e.g.: A-Major") nil (om-make-point 378 332) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 287 165) (om-make-point 48 30) 5700 "5700" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 173 100) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 212 260) (om-make-point 62 30) (list 0 400) "(0 400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 79 100) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 16 100) (om-make-point 47 30) (list (list 0)) "((0))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 101 297) (om-make-point 271 116) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((5600) (5700) (5900) (6100) (6200) (6400) (6600) (6800) (6900) (7100))) :lonset (quote (0 400 800 1200 1600 2000 2400 2800 3200 3600 4600)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition" "fundamental" (quote :fundamental) nil nil))) (om-make-point 81 195) (om-make-point 174 67) nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((7 0 6 1 nil 0) (3 0 6 2 nil 0) (5 0 7 0 nil 0) (4 0 7 1 nil 0) (2 0 7 2 nil 0) (1 0 7 3 nil 0))) nil 7.02))
diff --git a/examples/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp b/examples/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp
index decef57..efe45c6 100644
--- a/examples/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp
+++ b/examples/02_vertical-composition/harmon-database_voice-ranges-and-registration.omp
@@ -1,5 +1,5 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 95 239) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :patc (om-make-point 95 239) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil "2023/12/09 18:23:08")
; End File Header
; External resources
; (list (list (quote :sound) "#P\"../../Praesentation/out-files/patch_02.d-2.aiff\"" "#P\"../../Praesentation/out-files/patch_02.d.aiff\""))
diff --git a/examples/02_vertical-composition/harmon-database_with-voice-permutation.omp b/examples/02_vertical-composition/harmon-database_with-voice-permutation.omp
index 53633e0..27c3a0c 100644
--- a/examples/02_vertical-composition/harmon-database_with-voice-permutation.omp
+++ b/examples/02_vertical-composition/harmon-database_with-voice-permutation.omp
@@ -1,5 +1,5 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 294 222) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:10
+; (7.02 :patc (om-make-point 294 222) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil "2023/12/09 18:23:08")
; End File Header
; External resources
; (list (list (quote :sound) "#P\"../../Praesentation/out-files/MULTI-SEQ-b.aiff\"" "#P\"../../Praesentation/out-files/MULTI-SEQ-a.aiff\"" "#P\"../../../../../../../out-files/MULTI-SEQ-b.aiff\""))
diff --git a/examples/03_horizontal-composition/.finderinfo b/examples/03_horizontal-composition/.finderinfo
new file mode 100644
index 0000000..2aa29c9
--- /dev/null
+++ b/examples/03_horizontal-composition/.finderinfo
@@ -0,0 +1,3 @@
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :fold (om-make-point 178 144) (om-make-point 50 50) (om-make-point 250 320) "" 186 1 nil nil)
+; End File Header
diff --git a/examples/03_horizontal-composition/harmon-progress_avoid-repetitions.omp b/examples/03_horizontal-composition/harmon-progress_avoid-repetitions.omp
index aa20f4c..f4f85e7 100644
--- a/examples/03_horizontal-composition/harmon-progress_avoid-repetitions.omp
+++ b/examples/03_horizontal-composition/harmon-progress_avoid-repetitions.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 135 295) (om-make-point 50 50) (om-make-point 961 608) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 135 295) (om-make-point 50 50) (om-make-point 961 608) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_avoid-repetitions" (quote ((let ((box (om-load-editor-box1 "MULTI-SEQ" (quote multi-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of CHORD-SEQ objects" "chord-seqs" (list (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000))) :lonset (quote (0 1000)) :ldur (quote ((1000))) :lvel (quote ((100))) :loffset (quote ((0))) :lchan (quote ((1))) :legato 0)))) (load-port-info newobj (quote ((0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 125 359) (om-make-point 577 184) (if (find-class (quote multi-seq) nil) (let ((newobj (make-instance (quote multi-seq) :chord-seqs (list (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6700) (7100) (6700) (6200) (6700) (6200) (6800) (6000) (6800))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6700) (6000) (6400) (7200) (6900) (6200) (6700) (6100) (6500) (6300))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)) ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxwithed1 (quote box-with-win) "zweistimmig" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 172 295) nil nil nil (list (let ((box (om-load-boxcall (quote genfun) "collect" (quote listing) (quote ((om-load-inputfun (quote input-funbox) "anything" "DATA" nil))) (om-make-point 225 446) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 132 352) (om-make-point 130 70) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000))) :lonset (quote (0 1000)) :ldur (quote ((1000))) :lvel (quote ((100))) :loffset (quote ((0))) :lchan (quote ((1))) :legato 0)))) (load-port-info newobj (quote ((0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 73 204) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 30 120) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 307 509) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 149 509) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (2 0 1 1 nil 0) (3 0 2 0 nil 0) (4 0 3 0 nil 0) (0 1 5 0 nil 0) (0 0 6 0 nil 0))) 1 "zweistimmig" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 118 30) (quote "avoid-repetitions") "" (om-make-point 301 173) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 269 177) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 230 160) (om-make-point 34 30) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6700) "(6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 145 40) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil))) (om-make-point 92 117) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "avoid-repetitions" (quote :avoid-repetitions) nil nil))) (om-make-point 170 215) nil (list (list (list 6000 6700) (list 6700 6000) (list 7100 6400) (list 6700 7200) (list 6200 6900) (list 6700 6200) (list 6200 6700) (list 6800 6100) (list 6000 6500) (list 6800 6300))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 1 nil 0) (9 0 1 0 nil 0) (6 0 8 0 nil 0) (7 0 8 1 nil 0) (7 0 8 2 nil 0) (8 0 9 0 nil 0) (5 0 9 1 nil 0) (4 0 9 2 nil 0) (3 0 9 3 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_interval-progression.omp b/examples/03_horizontal-composition/harmon-progress_interval-progression.omp
index 5182a43..b8e1d65 100644
--- a/examples/03_horizontal-composition/harmon-progress_interval-progression.omp
+++ b/examples/03_horizontal-composition/harmon-progress_interval-progression.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 53 201) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 53 201) (om-make-point 50 50) (om-make-point 500 400) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_interval-progression" (quote ((let ((box (om-load-boxwithed1 (quote box-with-win) "zweistimmig" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 157 446) nil nil nil (list (let ((box (om-load-boxcall (quote genfun) "collect" (quote listing) (quote ((om-load-inputfun (quote input-funbox) "anything" "DATA" nil))) (om-make-point 225 446) nil nil nil nil 3))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 132 352) (om-make-point 130 70) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000))) :lonset (quote (0 1000)) :ldur (quote ((1000))) :lvel (quote ((100))) :loffset (quote ((0))) :lchan (quote ((1))) :legato 0)))) (load-port-info newobj (quote ((0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) nil nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 73 204) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "MAT-TRANS" (quote mat-trans) (quote ((om-load-inputfun (quote input-funbox) "a list of lists" "MATRIX" nil))) (om-make-point 30 120) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input0" 0 (om-make-point 5 40) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 307 509) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 149 509) nil nil nil 0))) (when (fboundp (quote set-active)) (set-active box nil)) box)) (quote ((1 0 0 0 nil 0) (2 0 1 1 nil 0) (3 0 2 0 nil 0) (4 0 3 0 nil 0) (0 1 5 0 nil 0) (0 0 6 0 nil 0))) 1 "zweistimmig" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "MULTI-SEQ" (quote multi-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of CHORD-SEQ objects" "chord-seqs" (list (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000))) :lonset (quote (0 1000)) :ldur (quote ((1000))) :lvel (quote ((100))) :loffset (quote ((0))) :lchan (quote ((1))) :legato 0)))) (load-port-info newobj (quote ((0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 52 532) (om-make-point 559 146) (if (find-class (quote multi-seq) nil) (let ((newobj (make-instance (quote multi-seq) :chord-seqs (list (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000) (6800) (6300) (6200) (6700) (6100) (6800) (7100) (6700) (6000))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6700) (6100) (6800) (6700) (6200) (6600) (6300) (6400) (7200) (6700))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) :ldur (quote ((1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000) (1000))) :lvel (quote ((100) (100) (100) (100) (100) (100) (100) (100) (100) (100))) :loffset (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))) :lchan (quote ((1) (1) (1) (1) (1) (1) (1) (1) (1) (1))) :legato 0)))) (load-port-info newobj (quote ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (((0) (0) (0) (0) (0) (0) (0) (0) (0) (0)) ((0) (0) (0) (0) (0) (0) (0) (0) (0) (0))))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "CHORD-SEQ" (quote chord-seq) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "pitches (mc): list or list of lists" "lmidic" (list 6000)) (om-load-inputfun (quote input-funbox) "onsets (ms): list" "lonset" (list 0 1000)) (om-load-inputfun (quote input-funbox) "durations (ms): list or list of lists" "ldur" (list 1000)) (om-load-inputfun (quote input-funbox) "velocities (0-127): list or list of lists" "lvel" (list 100)) (om-load-inputfun (quote input-funbox) "offsets (ms): list or list of lists" "loffset" (list 0)) (om-load-inputfun (quote input-funbox) "MIDI channels (1-16): list or list of lists" "lchan" (list 1)) (om-load-inputfun (quote input-funbox) "relative chords duration (0-100)" "legato" 0))) (om-make-point 88 313) (om-make-point 524 112) (let ((newobj (when (find-class (quote chord-seq) nil) (make-instance (quote chord-seq) :lmidic (quote ((6000 6700) (6800 6100) (6300 6800) (6200 6700) (6700 6200) (6100 6600) (6800 6300) (7100 6400) (6700 7200) (6000 6700))) :lonset (quote (0 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000)) :ldur (quote ((1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000) (1000 1000))) :lvel (quote ((100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100) (100 100))) :loffset (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0))) :lchan (quote ((1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1) (1 1))) :legato 0)))) (load-port-info newobj (quote ((0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0) (0 0)))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) "x" nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (1))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 256 185) (om-make-point 34 30) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6700) "(6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 145 40) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil))) (om-make-point 92 117) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil))) (om-make-point 170 215) nil (list (list (list 6000 6700) (list 6900 6200) (list 6000 6700) (list 6600 6100) (list 7200 6700) (list 7100 6600) (list 6400 6900) (list 6200 6700) (list 6200 6900) (list 6600 6100))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 1 0 0 nil 0) (0 0 1 1 nil 0) (8 0 2 1 nil 0) (5 0 7 0 nil 0) (6 0 7 1 nil 0) (6 0 7 2 nil 0) (7 0 8 0 nil 0) (4 0 8 1 nil 0) (3 0 8 2 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_parallel.omp b/examples/03_horizontal-composition/harmon-progress_parallel.omp
index 58f8267..8139456 100644
--- a/examples/03_horizontal-composition/harmon-progress_parallel.omp
+++ b/examples/03_horizontal-composition/harmon-progress_parallel.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 116 289) (om-make-point 50 50) (om-make-point 1359 646) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 116 289) (om-make-point 50 50) (om-make-point 1359 646) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_parallel" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 70 215) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 132 113) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 96 143) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 187 316) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch" (om-load-patch-abs1 "mypatch" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 188) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 117 50) (om-make-point 324 30) (list 0 200 -200 100 -100 700 -700 500 -500 1200 -1200) "(0 200 -200 100 -100 700 -700 500 -500 1200 -1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 242 313)) (quote nil) (om-make-point 405 65) nil (list (list 0 200 -200 100 -100 700 -700 500 -500 1200 -1200)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "all progression-intervals for instr 2" (om-load-patch-abs1 "all progression-intervals for instr 2" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 196) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SORT-LIST" (quote sort-list) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 285 286) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 257 234) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 297 169) (om-make-point 32 30) -1 "-1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" -1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 294 199) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 299 51) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 204 50) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 248 50) (om-make-point 41 30) 900 "900" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 244 116) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (2 0 1 0 nil 0) (8 0 2 0 nil 2) (4 0 2 1 nil 0) (3 0 4 0 nil 0) (8 0 4 1 nil 2) (6 0 8 0 nil 2) (7 0 8 1 nil 2) (5 0 8 2 nil 2))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote nil) (om-make-point 253 1243/8) nil (list (list 100 200 300 400 500 600 700 800 900 -100 -200 -300 -400 -500 -600 -700 -800 -900)) "x" "all progression-intervals for instr 2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 90 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 270 115) (om-make-point 48 30) (list 1 2) "(1 2)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database2" (om-load-patch-abs1 "database2" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 273 57) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 155 82) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 206 244) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 124 164) nil (list (list (list 4500 6400 6900) (list 4500 5700 6400) (list 4500 5700 7600) (list 4500 6900 6400) (list 4500 6900 7600) (list 5200 5700 6900) (list 5200 6900 6900) (list 5700 5700 6400) (list 5700 5700 7600) (list 4500 6600 6900) (list 4500 5700 6600) (list 4500 6900 6600) (list 5400 5700 6900) (list 5400 6900 6900) (list 5700 5700 6600) (list 4500 6100 6400) (list 4500 6100 7600) (list 4500 6400 6100) (list 4500 6400 7300) (list 4900 5700 6400) (list 4900 5700 7600) (list 4900 6900 6400) (list 4900 6900 7600) (list 4900 6400 6900) (list 5200 5700 6100) (list 5200 5700 7300) (list 5200 6900 6100) (list 5200 6900 7300) (list 5200 6100 6900) (list 4500 6100 6900) (list 4500 5700 6100) (list 4500 5700 7300) (list 4500 6900 6100) (list 4500 6900 7300) (list 4900 5700 6900) (list 4900 6900 6900) (list 5700 5700 6100) (list 5700 5700 7300) (list 4500 6200 6900) (list 4500 5700 6200) (list 4500 5700 7400) (list 4500 6900 6200) (list 4500 6900 7400) (list 5000 5700 6900) (list 5000 6900 6900) (list 5700 5700 6200) (list 5700 5700 7400) (list 4700 6600 7100) (list 4700 5900 6600) (list 4700 7100 6600) (list 5400 5900 7100) (list 5400 7100 7100) (list 5900 5900 6600) (list 4700 5600 7100) (list 4700 6800 7100) (list 4700 5900 6800) (list 4700 7100 6800) (list 5600 5900 7100) (list 5600 7100 7100) (list 5900 5900 6800) (list 5900 5600 7100) (list 4700 6300 6600) (list 4700 6600 6300) (list 4700 6600 7500) (list 5100 5900 6600) (list 5100 7100 6600) (list 5100 6600 7100) (list 5400 5900 6300) (list 5400 5900 7500) (list 5400 7100 6300) (list 5400 7100 7500) (list 5400 6300 7100) (list 4700 6300 7100) (list 4700 5900 6300) (list 4700 5900 7500) (list 4700 7100 6300) (list 4700 7100 7500) (list 5100 5900 7100) (list 5100 7100 7100) (list 5900 5900 6300) (list 5900 5900 7500) (list 4700 6400 7100) (list 4700 5900 6400) (list 4700 5900 7600) (list 4700 7100 6400) (list 4700 7100 7600) (list 5200 5900 7100) (list 5200 7100 7100) (list 5900 5900 6400) (list 5900 5900 7600) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 4800 6000 6700) (list 4800 7200 6700) (list 5500 6000 6000) (list 5500 6000 7200) (list 5500 7200 6000) (list 5500 7200 7200) (list 6000 6000 6700) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 4800 5700 6000) (list 4800 5700 7200) (list 4800 6900 6000) (list 4800 6900 7200) (list 4800 6000 6900) (list 4800 7200 6900) (list 5700 6000 6000) (list 5700 6000 7200) (list 5700 7200 6000) (list 5700 7200 7200) (list 6000 6000 6900) (list 6000 5700 6000) (list 6000 5700 7200) (list 6000 6900 6000) (list 4800 6400 6700) (list 4800 5500 6400) (list 4800 5500 7600) (list 4800 6700 6400) (list 4800 6700 7600) (list 6000 5500 6400) (list 6000 5500 7600) (list 5200 6000 6700) (list 5200 7200 6700) (list 5200 5500 6000) (list 5200 5500 7200) (list 5200 6700 6000) (list 5200 6700 7200) (list 5500 6000 6400) (list 5500 6000 7600) (list 5500 7200 6400) (list 5500 7200 7600) (list 5500 6400 6000) (list 5500 6400 7200) (list 4800 6400 6000) (list 4800 6400 7200) (list 4800 6000 6400) (list 4800 6000 7600) (list 4800 7200 6400) (list 4800 7200 7600) (list 5200 6000 6000) (list 5200 6000 7200) (list 5200 7200 6000) (list 5200 7200 7200) (list 6000 6000 6400) (list 6000 6000 7600) (list 6000 6400 6000) (list 4800 6500 6000) (list 4800 6500 7200) (list 4800 6000 6500) (list 4800 7200 6500) (list 5300 6000 6000) (list 5300 6000 7200) (list 5300 7200 6000) (list 5300 7200 7200) (list 6000 6000 6500) (list 6000 6500 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5000 6200 6900) (list 5700 6200 6200) (list 5700 6200 7400) (list 5000 5900 6200) (list 5000 5900 7400) (list 5000 7100 6200) (list 5000 7100 7400) (list 5000 6200 7100) (list 5900 6200 6200) (list 5900 6200 7400) (list 5000 6600 6900) (list 5000 5700 6600) (list 5000 6900 6600) (list 5400 6200 6900) (list 5400 5700 6200) (list 5400 5700 7400) (list 5400 6900 6200) (list 5400 6900 7400) (list 5700 6200 6600) (list 5700 6600 6200) (list 5700 6600 7400) (list 5000 6600 6200) (list 5000 6600 7400) (list 5000 6200 6600) (list 5400 6200 6200) (list 5400 6200 7400) (list 5000 5500 6200) (list 5000 5500 7400) (list 5000 6700 6200) (list 5000 6700 7400) (list 5000 6200 6700) (list 5500 6200 6200) (list 5500 6200 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5200 6400 7100) (list 5900 6400 6400) (list 5900 6400 7600) (list 5200 6100 6400) (list 5200 6100 7600) (list 5200 6400 6100) (list 5200 6400 7300) (list 5200 5600 7100) (list 5200 6800 7100) (list 5200 5900 6800) (list 5200 7100 6800) (list 5600 6400 7100) (list 5600 5900 6400) (list 5600 5900 7600) (list 5600 7100 6400) (list 5600 7100 7600) (list 5900 6400 6800) (list 5900 5600 6400) (list 5900 5600 7600) (list 5900 6800 6400) (list 5900 6800 7600) (list 5200 5600 6400) (list 5200 5600 7600) (list 5200 6800 6400) (list 5200 6800 7600) (list 5200 6400 6800) (list 5600 6400 6400) (list 5600 6400 7600) (list 5200 5700 6400) (list 5200 5700 7600) (list 5200 6900 6400) (list 5200 6900 7600) (list 5200 6400 6900) (list 5700 6400 6400) (list 5700 6400 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5300 6500 6000) (list 5300 6500 7200) (list 6000 6500 6500) (list 5300 6200 6500) (list 5300 6500 6200) (list 5300 6500 7400) (list 5300 5700 6000) (list 5300 5700 7200) (list 5300 6900 6000) (list 5300 6900 7200) (list 5300 6000 6900) (list 5300 7200 6900) (list 5700 6500 6000) (list 5700 6500 7200) (list 5700 6000 6500) (list 5700 7200 6500) (list 6000 6500 6900) (list 6000 5700 6500) (list 6000 6900 6500) (list 5300 5700 6500) (list 5300 6900 6500) (list 5300 6500 6900) (list 5700 6500 6500) (list 5300 5800 6500) (list 5300 7000 6500) (list 5300 6500 7000) (list 5800 6500 6500) (list 5500 6200 6700) (list 5500 6700 6200) (list 5500 6700 7400) (list 5500 6400 6700) (list 5500 6700 6400) (list 5500 6700 7600) (list 5500 5900 6200) (list 5500 5900 7400) (list 5500 7100 6200) (list 5500 7100 7400) (list 5500 6200 7100) (list 5900 5500 6200) (list 5900 5500 7400) (list 5900 6700 6200) (list 5900 6700 7400) (list 5900 6200 6700) (list 5500 5900 6700) (list 5500 7100 6700) (list 5500 6700 7100) (list 5900 5500 6700) (list 5900 6700 6700) (list 5500 6000 6700) (list 5500 7200 6700) (list 5500 6700 6000) (list 5500 6700 7200) (list 6000 5500 6700) (list 6000 6700 6700) (list 5700 6400 6900) (list 5700 6900 6400) (list 5700 6900 7600) (list 5700 6600 6900) (list 5700 6900 6600) (list 5700 6100 6400) (list 5700 6100 7600) (list 5700 6400 6100) (list 5700 6400 7300) (list 5700 6100 6900) (list 5700 6900 6100) (list 5700 6900 7300) (list 5700 6200 6900) (list 5700 6900 6200) (list 5700 6900 7400) (list 5900 6600 7100) (list 5900 7100 6600) (list 5900 6800 7100) (list 5900 7100 6800) (list 5900 6300 6600) (list 5900 6600 6300) (list 5900 6600 7500) (list 5900 6300 7100) (list 5900 7100 6300) (list 5900 7100 7500) (list 5900 6400 7100) (list 5900 7100 6400) (list 5900 7100 7600) (list 6000 6700 7200) (list 6000 7200 6700) (list 6000 6900 7200) (list 6000 7200 6900) (list 6000 6400 6700) (list 6000 6700 6400) (list 6000 6700 7600) (list 6000 6400 7200) (list 6000 7200 6400) (list 6000 7200 7600) (list 6000 6500 7200) (list 6000 7200 6500))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 121 50) (om-make-point 90 30) (list 4500 6000) "(4500 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 0 59) (om-make-point 407 30) (list (list 0 700 1200) (list 0 900 1200) (list 0 400 700) (list 0 400 1200) (list 0 500 1200)) "((0 700 1200) (0 900 1200) (0 400 700) (0 400 1200) (0 500 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 294 101) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 198 24) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 3 0 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (8 0 4 2 nil 0) (2 0 4 3 nil 0) (7 0 4 4 nil 0) (1 0 4 5 nil 0) (0 0 4 6 nil 0))) 7.02 nil "" (om-make-point 137 147) (om-make-point 929 400)) (quote nil) (om-make-point 726/5 39) nil (list (list (list 4500 6400 6900) (list 4500 5700 6400) (list 4500 5700 7600) (list 4500 6900 6400) (list 4500 6900 7600) (list 5200 5700 6900) (list 5200 6900 6900) (list 5700 5700 6400) (list 5700 5700 7600) (list 4500 6600 6900) (list 4500 5700 6600) (list 4500 6900 6600) (list 5400 5700 6900) (list 5400 6900 6900) (list 5700 5700 6600) (list 4500 6100 6400) (list 4500 6100 7600) (list 4500 6400 6100) (list 4500 6400 7300) (list 4900 5700 6400) (list 4900 5700 7600) (list 4900 6900 6400) (list 4900 6900 7600) (list 4900 6400 6900) (list 5200 5700 6100) (list 5200 5700 7300) (list 5200 6900 6100) (list 5200 6900 7300) (list 5200 6100 6900) (list 4500 6100 6900) (list 4500 5700 6100) (list 4500 5700 7300) (list 4500 6900 6100) (list 4500 6900 7300) (list 4900 5700 6900) (list 4900 6900 6900) (list 5700 5700 6100) (list 5700 5700 7300) (list 4500 6200 6900) (list 4500 5700 6200) (list 4500 5700 7400) (list 4500 6900 6200) (list 4500 6900 7400) (list 5000 5700 6900) (list 5000 6900 6900) (list 5700 5700 6200) (list 5700 5700 7400) (list 4700 6600 7100) (list 4700 5900 6600) (list 4700 7100 6600) (list 5400 5900 7100) (list 5400 7100 7100) (list 5900 5900 6600) (list 4700 5600 7100) (list 4700 6800 7100) (list 4700 5900 6800) (list 4700 7100 6800) (list 5600 5900 7100) (list 5600 7100 7100) (list 5900 5900 6800) (list 5900 5600 7100) (list 4700 6300 6600) (list 4700 6600 6300) (list 4700 6600 7500) (list 5100 5900 6600) (list 5100 7100 6600) (list 5100 6600 7100) (list 5400 5900 6300) (list 5400 5900 7500) (list 5400 7100 6300) (list 5400 7100 7500) (list 5400 6300 7100) (list 4700 6300 7100) (list 4700 5900 6300) (list 4700 5900 7500) (list 4700 7100 6300) (list 4700 7100 7500) (list 5100 5900 7100) (list 5100 7100 7100) (list 5900 5900 6300) (list 5900 5900 7500) (list 4700 6400 7100) (list 4700 5900 6400) (list 4700 5900 7600) (list 4700 7100 6400) (list 4700 7100 7600) (list 5200 5900 7100) (list 5200 7100 7100) (list 5900 5900 6400) (list 5900 5900 7600) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 4800 6000 6700) (list 4800 7200 6700) (list 5500 6000 6000) (list 5500 6000 7200) (list 5500 7200 6000) (list 5500 7200 7200) (list 6000 6000 6700) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 4800 5700 6000) (list 4800 5700 7200) (list 4800 6900 6000) (list 4800 6900 7200) (list 4800 6000 6900) (list 4800 7200 6900) (list 5700 6000 6000) (list 5700 6000 7200) (list 5700 7200 6000) (list 5700 7200 7200) (list 6000 6000 6900) (list 6000 5700 6000) (list 6000 5700 7200) (list 6000 6900 6000) (list 4800 6400 6700) (list 4800 5500 6400) (list 4800 5500 7600) (list 4800 6700 6400) (list 4800 6700 7600) (list 6000 5500 6400) (list 6000 5500 7600) (list 5200 6000 6700) (list 5200 7200 6700) (list 5200 5500 6000) (list 5200 5500 7200) (list 5200 6700 6000) (list 5200 6700 7200) (list 5500 6000 6400) (list 5500 6000 7600) (list 5500 7200 6400) (list 5500 7200 7600) (list 5500 6400 6000) (list 5500 6400 7200) (list 4800 6400 6000) (list 4800 6400 7200) (list 4800 6000 6400) (list 4800 6000 7600) (list 4800 7200 6400) (list 4800 7200 7600) (list 5200 6000 6000) (list 5200 6000 7200) (list 5200 7200 6000) (list 5200 7200 7200) (list 6000 6000 6400) (list 6000 6000 7600) (list 6000 6400 6000) (list 4800 6500 6000) (list 4800 6500 7200) (list 4800 6000 6500) (list 4800 7200 6500) (list 5300 6000 6000) (list 5300 6000 7200) (list 5300 7200 6000) (list 5300 7200 7200) (list 6000 6000 6500) (list 6000 6500 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5000 6200 6900) (list 5700 6200 6200) (list 5700 6200 7400) (list 5000 5900 6200) (list 5000 5900 7400) (list 5000 7100 6200) (list 5000 7100 7400) (list 5000 6200 7100) (list 5900 6200 6200) (list 5900 6200 7400) (list 5000 6600 6900) (list 5000 5700 6600) (list 5000 6900 6600) (list 5400 6200 6900) (list 5400 5700 6200) (list 5400 5700 7400) (list 5400 6900 6200) (list 5400 6900 7400) (list 5700 6200 6600) (list 5700 6600 6200) (list 5700 6600 7400) (list 5000 6600 6200) (list 5000 6600 7400) (list 5000 6200 6600) (list 5400 6200 6200) (list 5400 6200 7400) (list 5000 5500 6200) (list 5000 5500 7400) (list 5000 6700 6200) (list 5000 6700 7400) (list 5000 6200 6700) (list 5500 6200 6200) (list 5500 6200 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5200 6400 7100) (list 5900 6400 6400) (list 5900 6400 7600) (list 5200 6100 6400) (list 5200 6100 7600) (list 5200 6400 6100) (list 5200 6400 7300) (list 5200 5600 7100) (list 5200 6800 7100) (list 5200 5900 6800) (list 5200 7100 6800) (list 5600 6400 7100) (list 5600 5900 6400) (list 5600 5900 7600) (list 5600 7100 6400) (list 5600 7100 7600) (list 5900 6400 6800) (list 5900 5600 6400) (list 5900 5600 7600) (list 5900 6800 6400) (list 5900 6800 7600) (list 5200 5600 6400) (list 5200 5600 7600) (list 5200 6800 6400) (list 5200 6800 7600) (list 5200 6400 6800) (list 5600 6400 6400) (list 5600 6400 7600) (list 5200 5700 6400) (list 5200 5700 7600) (list 5200 6900 6400) (list 5200 6900 7600) (list 5200 6400 6900) (list 5700 6400 6400) (list 5700 6400 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5300 6500 6000) (list 5300 6500 7200) (list 6000 6500 6500) (list 5300 6200 6500) (list 5300 6500 6200) (list 5300 6500 7400) (list 5300 5700 6000) (list 5300 5700 7200) (list 5300 6900 6000) (list 5300 6900 7200) (list 5300 6000 6900) (list 5300 7200 6900) (list 5700 6500 6000) (list 5700 6500 7200) (list 5700 6000 6500) (list 5700 7200 6500) (list 6000 6500 6900) (list 6000 5700 6500) (list 6000 6900 6500) (list 5300 5700 6500) (list 5300 6900 6500) (list 5300 6500 6900) (list 5700 6500 6500) (list 5300 5800 6500) (list 5300 7000 6500) (list 5300 6500 7000) (list 5800 6500 6500) (list 5500 6200 6700) (list 5500 6700 6200) (list 5500 6700 7400) (list 5500 6400 6700) (list 5500 6700 6400) (list 5500 6700 7600) (list 5500 5900 6200) (list 5500 5900 7400) (list 5500 7100 6200) (list 5500 7100 7400) (list 5500 6200 7100) (list 5900 5500 6200) (list 5900 5500 7400) (list 5900 6700 6200) (list 5900 6700 7400) (list 5900 6200 6700) (list 5500 5900 6700) (list 5500 7100 6700) (list 5500 6700 7100) (list 5900 5500 6700) (list 5900 6700 6700) (list 5500 6000 6700) (list 5500 7200 6700) (list 5500 6700 6000) (list 5500 6700 7200) (list 6000 5500 6700) (list 6000 6700 6700) (list 5700 6400 6900) (list 5700 6900 6400) (list 5700 6900 7600) (list 5700 6600 6900) (list 5700 6900 6600) (list 5700 6100 6400) (list 5700 6100 7600) (list 5700 6400 6100) (list 5700 6400 7300) (list 5700 6100 6900) (list 5700 6900 6100) (list 5700 6900 7300) (list 5700 6200 6900) (list 5700 6900 6200) (list 5700 6900 7400) (list 5900 6600 7100) (list 5900 7100 6600) (list 5900 6800 7100) (list 5900 7100 6800) (list 5900 6300 6600) (list 5900 6600 6300) (list 5900 6600 7500) (list 5900 6300 7100) (list 5900 7100 6300) (list 5900 7100 7500) (list 5900 6400 7100) (list 5900 7100 6400) (list 5900 7100 7600) (list 6000 6700 7200) (list 6000 7200 6700) (list 6000 6900 7200) (list 6000 7200 6900) (list 6000 6400 6700) (list 6000 6700 6400) (list 6000 6700 7600) (list 6000 6400 7200) (list 6000 7200 6400) (list 6000 7200 7600) (list 6000 6500 7200) (list 6000 7200 6500))) nil "database2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 273 57) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 155 82) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 206 244) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil))) (om-make-point 110 160) nil (list (list (list 4500 6400 6900) (list 4700 6600 7100) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5500 6200 6700) (list 5700 6400 6900) (list 5900 6600 7100) (list 6000 6700 7200))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 121 50) (om-make-point 90 30) (list 4500 6000) "(4500 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 26 85) (om-make-point 104 30) (list (list 0 700 1200)) "((0 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 294 101) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 198 24) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 3 0 nil 0) (6 0 4 0 nil 0) (5 0 4 1 nil 0) (8 0 4 2 nil 0) (2 0 4 3 nil 0) (7 0 4 4 nil 0) (1 0 4 5 nil 0) (0 0 4 6 nil 0))) 7.02 nil "" (om-make-point 131 205) (om-make-point 547 453)) (quote nil) (om-make-point 316/5 45) nil (list (list (list 4500 6400 6900) (list 4700 6600 7100) (list 4800 5500 6000) (list 4800 5500 7200) (list 4800 6700 6000) (list 4800 6700 7200) (list 6000 5500 6000) (list 6000 5500 7200) (list 6000 6700 6000) (list 5000 5700 6200) (list 5000 5700 7400) (list 5000 6900 6200) (list 5000 6900 7400) (list 5200 5900 6400) (list 5200 5900 7600) (list 5200 7100 6400) (list 5200 7100 7600) (list 5300 6000 6500) (list 5300 7200 6500) (list 5500 6200 6700) (list 5700 6400 6900) (list 5900 6600 7100) (list 6000 6700 7200))) nil "database1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 438 129) (om-make-point 162 30) (list (list 2 1) (list (quote omlead::parallel))) "((2 1) (omlead::parallel))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 64 398) (om-make-point 613 247) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (list (quote g) (quote g) (quote f)) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 476 433) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 231 91) (om-make-point 44 27) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 130 125) (om-make-point 122 30) (list 4800 6000 6700) "(4800 6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "base-list" (quote :base-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval1" (quote :voice-interval1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter1" (quote :voice-counter1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval3" (quote :voice-interval3) nil nil))) (om-make-point 174 219) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((11 0 0 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (0 0 8 1 nil 0) (3 0 11 0 nil 0) (10 0 11 1 nil 0) (9 0 11 2 nil 0) (4 0 11 3 nil 0) (1 0 11 4 nil 0) (7 0 11 5 nil 0) (2 0 11 6 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_rules-combined.omp b/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
index e75dd51..7f6a7c1 100644
--- a/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
+++ b/examples/03_horizontal-composition/harmon-progress_rules-combined.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 152 320) (om-make-point 50 50) (om-make-point 1310 789) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 152 320) (om-make-point 50 50) (om-make-point 1310 789) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_rules-combined" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 70 215) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 132 113) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 96 143) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 208 291) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 560 166) (om-make-point 264 30) (list 300 400 500 600 700 800 900 1000 1200) "(300 400 500 600 700 800 900 1000 1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 211 152) (om-make-point 126 30) (list 400 300 500 900) "(400 300 500 900)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch 2" (om-load-patch-abs1 "mypatch 2" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 109 81) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 50 51) (om-make-point 146 30) (list 0 100 -100 200 -200) "(0 100 -100 200 -200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 137 95) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 243 89) (om-make-point 61 30) (list (list 100)) "((100))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 202 50) (om-make-point 34 30) 14 "14" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 173 167) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 0 0 nil 0) (1 0 2 0 nil 0) (4 0 2 1 nil 0) (2 0 5 0 nil 0) (3 0 5 1 nil 0))) 7.02 nil "" (om-make-point 437 81) (om-make-point 368 292)) (quote nil) (om-make-point 366 1142/5) nil (list (list (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 0 100 -100 200 -200) (list 100))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 352 139) (om-make-point 155 30) (list (list 3 4) (list (quote omlead::seiten))) "((3 4) (omlead::seiten))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 500 256) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 300 220) (om-make-point 90 30) (list 5800 7200) "(5800 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 626 164) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 390 220) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 305 382) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 20 292) (om-make-point 644 67) (list (list (list 4300 5900 6200 6700) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 6700 6700) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 6700 6700) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4300 5800 6200 6700) (list 4300 5800 6700 6200) (list 4300 5800 6700 7400) (list 4300 5000 5800 6700) (list 4300 5000 7000 6700) (list 4300 5000 6700 7000) (list 4300 5500 5800 6200) (list 4300 5500 5800 7400) (list 4300 5500 7000 6200) (list 4300 5500 7000 7400) (list 4300 5500 6200 7000) (list 4600 5000 6700 6700) (list 4600 5500 6700 6200) (list 4600 5500 6700 7400) (list 4600 5500 6200 6700) (list 5000 5800 6700 6700) (list 5000 5500 6700 7000) (list 5000 5500 5800 6700) (list 5000 5500 7000 6700) (list 4300 5800 6100 6400) (list 4300 5800 6100 7600) (list 4300 5800 6400 6100) (list 4300 5800 6400 7300) (list 4300 5200 5800 6100) (list 4300 5200 5800 7300) (list 4300 5200 7000 6100) (list 4300 5200 7000 7300) (list 4300 5200 6100 7000) (list 4600 5500 6100 6400) (list 4600 5500 6100 7600) (list 4600 5500 6400 6100) (list 4600 5500 6400 7300) (list 4600 5200 6700 6100) (list 4600 5200 6700 7300) (list 4600 5200 6100 6700) (list 4900 5500 5800 6400) (list 4900 5500 5800 7600) (list 4900 5500 7000 6400) (list 4900 5500 7000 7600) (list 4900 5500 6400 7000) (list 4900 5800 6700 6400) (list 4900 5800 6700 7600) (list 4900 5800 6400 6700) (list 4900 5200 6700 7000) (list 4900 5200 5800 6700) (list 4900 5200 7000 6700) (list 4300 5900 6200 6500) (list 4300 5900 6500 6200) (list 4300 5900 6500 7400) (list 4300 5000 5900 6500) (list 4300 5000 7100 6500) (list 4300 5000 6500 7100) (list 4300 5300 5900 6200) (list 4300 5300 5900 7400) (list 4300 5300 7100 6200) (list 4300 5300 7100 7400) (list 4300 5300 6200 7100) (list 4700 5500 6200 6500) (list 4700 5500 6500 6200) (list 4700 5500 6500 7400) (list 4700 5000 6700 6500) (list 4700 5000 6500 6700) (list 4700 5300 6700 6200) (list 4700 5300 6700 7400) (list 4700 5300 6200 6700) (list 5000 5500 5900 6500) (list 5000 5500 7100 6500) (list 5000 5500 6500 7100) (list 5000 5900 6700 6500) (list 5000 5900 6500 6700) (list 5000 5300 6700 7100) (list 5000 5300 5900 6700) (list 5000 5300 7100 6700) (list 5300 5500 5900 6200) (list 5300 5500 5900 7400) (list 5300 5500 7100 6200) (list 5300 5500 7100 7400) (list 5300 5500 6200 7100) (list 5300 5900 6700 6200) (list 5300 5900 6700 7400) (list 5300 5900 6200 6700) (list 5300 5000 6700 7100) (list 5300 5000 5900 6700) (list 5300 5000 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 6900 6900) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4500 6000 6400 6900) (list 4500 6000 6900 6400) (list 4500 6000 6900 7600) (list 4500 5200 6000 6900) (list 4500 5200 7200 6900) (list 4500 5200 6900 6000) (list 4500 5200 6900 7200) (list 4500 5700 6000 6400) (list 4500 5700 6000 7600) (list 4500 5700 7200 6400) (list 4500 5700 7200 7600) (list 4500 5700 6400 6000) (list 4500 5700 6400 7200) (list 4800 5200 6900 6900) (list 4800 5700 6900 6400) (list 4800 5700 6900 7600) (list 4800 5700 6400 6900) (list 5200 6000 6900 6900) (list 5200 5700 6900 6000) (list 5200 5700 6900 7200) (list 5200 5700 6000 6900) (list 5200 5700 7200 6900) (list 4500 6000 6300 6600) (list 4500 6000 6600 6300) (list 4500 6000 6600 7500) (list 4500 5100 6000 6600) (list 4500 5100 7200 6600) (list 4500 5100 6600 6000) (list 4500 5100 6600 7200) (list 4500 5400 6000 6300) (list 4500 5400 6000 7500) (list 4500 5400 7200 6300) (list 4500 5400 7200 7500) (list 4500 5400 6300 6000) (list 4500 5400 6300 7200) (list 4500 5200 6100 6700) (list 4500 5200 6700 6100) (list 4500 5200 6700 7300) (list 4500 5500 6100 6400) (list 4500 5500 6100 7600) (list 4500 5500 6400 6100) (list 4500 5500 6400 7300) (list 4900 5700 6400 6700) (list 4900 5700 6700 6400) (list 4900 5700 6700 7600) (list 4900 5200 6900 6700) (list 4900 5200 6700 6900) (list 4900 5500 6900 6400) (list 4900 5500 6900 7600) (list 4900 5500 6400 6900) (list 5200 5700 6100 6700) (list 5200 5700 6700 6100) (list 5200 5700 6700 7300) (list 5200 5500 6900 6100) (list 5200 5500 6900 7300) (list 5200 5500 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4700 5000 6600 7100) (list 4700 5000 5900 6600) (list 4700 5000 7100 6600) (list 4700 5400 6200 7100) (list 4700 5400 5900 6200) (list 4700 5400 5900 7400) (list 4700 5400 7100 6200) (list 4700 5400 7100 7400) (list 4700 5900 6200 6600) (list 4700 5900 6600 6200) (list 4700 5900 6600 7400) (list 5000 5400 5900 7100) (list 5000 5400 7100 7100) (list 5000 5900 5900 6600) (list 5000 5900 7100 6600) (list 5000 5900 6600 7100) (list 5400 5000 5900 7100) (list 5400 5000 7100 7100) (list 5400 5900 5900 6200) (list 5400 5900 5900 7400) (list 5400 5900 7100 6200) (list 5400 5900 7100 7400) (list 5400 5900 6200 7100) (list 4700 5000 6500 6800) (list 4700 5000 6800 6500) (list 4700 5300 6200 6800) (list 4700 5300 6800 6200) (list 4700 5300 6800 7400) (list 4700 5600 6200 6500) (list 4700 5600 6500 6200) (list 4700 5600 6500 7400) (list 4700 5100 6600 6900) (list 4700 5100 6900 6600) (list 4700 5400 6300 6900) (list 4700 5400 6900 6300) (list 4700 5400 6900 7500) (list 4700 5700 6300 6600) (list 4700 5700 6600 6300) (list 4700 5700 6600 7500) (list 5100 5900 6600 6900) (list 5100 5900 6900 6600) (list 5100 5400 5900 6900) (list 5100 5400 7100 6900) (list 5100 5400 6900 7100) (list 5100 5700 5900 6600) (list 5100 5700 7100 6600) (list 5100 5700 6600 7100) (list 5400 5900 6300 6900) (list 5400 5900 6900 6300) (list 5400 5900 6900 7500) (list 5400 5100 5900 6900) (list 5400 5100 7100 6900) (list 5400 5100 6900 7100) (list 5400 5700 5900 6300) (list 5400 5700 5900 7500) (list 5400 5700 7100 6300) (list 5400 5700 7100 7500) (list 5400 5700 6300 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 4800 5500 6000 6300) (list 4800 5500 6000 7500) (list 4800 5500 7200 6300) (list 4800 5500 7200 7500) (list 4800 6000 6300 6700) (list 4800 6000 6700 6300) (list 4800 6000 6700 7500) (list 5100 5500 6000 6000) (list 5100 5500 6000 7200) (list 5100 5500 7200 6000) (list 5100 5500 7200 7200) (list 5100 6000 6000 6700) (list 5100 6000 7200 6700) (list 5100 6000 6700 6000) (list 5100 6000 6700 7200) (list 4800 5100 6600 6900) (list 4800 5100 6900 6600) (list 4800 5400 6300 6900) (list 4800 5400 6900 6300) (list 4800 5400 6900 7500) (list 4800 5700 6300 6600) (list 4800 5700 6600 6300) (list 4800 5700 6600 7500) (list 5100 6000 6600 6900) (list 5100 6000 6900 6600) (list 5100 5400 6000 6900) (list 5100 5400 7200 6900) (list 5100 5400 6900 6000) (list 5100 5400 6900 7200) (list 5100 5700 6000 6600) (list 5100 5700 7200 6600) (list 5100 5700 6600 6000) (list 5100 5700 6600 7200) (list 5400 6000 6300 6900) (list 5400 6000 6900 6300) (list 5400 6000 6900 7500) (list 5400 5100 6000 6900) (list 5400 5100 7200 6900) (list 5400 5100 6900 6000) (list 5400 5100 6900 7200) (list 5400 5700 6000 6300) (list 5400 5700 6000 7500) (list 5400 5700 7200 6300) (list 5400 5700 7200 7500) (list 5400 5700 6300 6000) (list 5400 5700 6300 7200) (list 4800 5200 6700 7000) (list 4800 5200 5800 6700) (list 4800 5200 7000 6700) (list 4800 5500 6400 7000) (list 4800 5500 5800 6400) (list 4800 5500 5800 7600) (list 4800 5500 7000 6400) (list 4800 5500 7000 7600) (list 4800 5800 6400 6700) (list 4800 5800 6700 6400) (list 4800 5800 6700 7600) (list 5200 6000 6700 7000) (list 5200 6000 5800 6700) (list 5200 6000 7000 6700) (list 5200 5500 6000 7000) (list 5200 5500 7200 7000) (list 5200 5500 5800 6000) (list 5200 5500 5800 7200) (list 5200 5500 7000 6000) (list 5200 5500 7000 7200) (list 5200 5800 6000 6700) (list 5200 5800 7200 6700) (list 5200 5800 6700 6000) (list 5200 5800 6700 7200) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5000 5300 6900 6200) (list 5000 5300 6900 7400) (list 5000 5300 6200 6900) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5000 5700 6200 6500) (list 5300 5000 6900 6200) (list 5300 5000 6900 7400) (list 5300 5000 6200 6900) (list 5300 5700 6200 6200) (list 5300 5700 6200 7400) (list 5000 5300 6800 7100) (list 5000 5300 5900 6800) (list 5000 5300 7100 6800) (list 5000 5600 6500 7100) (list 5000 5600 5900 6500) (list 5000 5600 7100 6500) (list 5000 5900 6500 6800) (list 5000 5900 6800 6500) (list 5300 5000 6800 7100) (list 5300 5000 5900 6800) (list 5300 5000 7100 6800) (list 5000 5400 6900 6000) (list 5000 5400 6900 7200) (list 5000 5400 6000 6900) (list 5000 5400 7200 6900) (list 5000 5700 6600 6000) (list 5000 5700 6600 7200) (list 5000 5700 6000 6600) (list 5000 5700 7200 6600) (list 5000 6000 6600 6900) (list 5000 6000 6900 6600) (list 5400 5000 6900 6000) (list 5400 5000 6900 7200) (list 5400 5000 6000 6900) (list 5400 5000 7200 6900) (list 5400 5700 6200 6000) (list 5400 5700 6200 7200) (list 5400 5700 6000 6200) (list 5400 5700 6000 7400) (list 5400 5700 7200 6200) (list 5400 5700 7200 7400) (list 5400 6000 6200 6900) (list 5400 6000 6900 6200) (list 5400 6000 6900 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5200 5500 5900 6400) (list 5200 5500 5900 7600) (list 5200 5500 7100 6400) (list 5200 5500 7100 7600) (list 5200 5500 6400 7100) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5200 5900 6400 6700) (list 5200 5500 5800 6100) (list 5200 5500 5800 7300) (list 5200 5500 7000 6100) (list 5200 5500 7000 7300) (list 5200 5500 6100 7000) (list 5200 5800 6700 6100) (list 5200 5800 6700 7300) (list 5200 5800 6100 6700) (list 5200 5600 5900 6200) (list 5200 5600 5900 7400) (list 5200 5600 7100 6200) (list 5200 5600 7100 7400) (list 5200 5600 6200 7100) (list 5200 5900 6800 6200) (list 5200 5900 6800 7400) (list 5200 5900 6200 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 6000 6800 6500) (list 5300 6000 6500 6800) (list 5300 5600 5900 6200) (list 5300 5600 5900 7400) (list 5300 5600 7100 6200) (list 5300 5600 7100 7400) (list 5300 5600 6200 7100) (list 5300 5900 6800 6200) (list 5300 5900 6800 7400) (list 5300 5900 6200 6800) (list 5300 5700 6000 6300) (list 5300 5700 6000 7500) (list 5300 5700 7200 6300) (list 5300 5700 7200 7500) (list 5300 5700 6300 6000) (list 5300 5700 6300 7200) (list 5300 6000 6900 6300) (list 5300 6000 6900 7500) (list 5300 6000 6300 6900))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 120 220) (om-make-point 90 30) (list 4300 5400) "(4300 5400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 10 78) (om-make-point 429 30) (list (list 0 400 700 1200) (list 0 300 700 1200) (list 0 300 600 900) (list 0 400 700 1000)) "((0 400 700 1200) (0 300 700 1200) (0 300 600 900) (0 400 700 1000))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 354 120) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 210 220) (om-make-point 90 30) (list 5000 6000) "(5000 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 5 0 nil 0) (8 0 6 0 nil 0) (7 0 6 1 nil 0) (10 0 6 2 nil 0) (1 0 6 3 nil 0) (4 0 6 4 nil 0) (9 0 6 5 nil 0) (0 0 6 6 nil 0) (3 0 6 7 nil 0))) 7.02 nil "" (om-make-point 85 86) (om-make-point 1048 617)) (quote nil) (om-make-point 756/5 45) nil (list (list (list 4300 5900 6200 6700) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 6700 6700) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 6700 6700) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4300 5800 6200 6700) (list 4300 5800 6700 6200) (list 4300 5800 6700 7400) (list 4300 5000 5800 6700) (list 4300 5000 7000 6700) (list 4300 5000 6700 7000) (list 4300 5500 5800 6200) (list 4300 5500 5800 7400) (list 4300 5500 7000 6200) (list 4300 5500 7000 7400) (list 4300 5500 6200 7000) (list 4600 5000 6700 6700) (list 4600 5500 6700 6200) (list 4600 5500 6700 7400) (list 4600 5500 6200 6700) (list 5000 5800 6700 6700) (list 5000 5500 6700 7000) (list 5000 5500 5800 6700) (list 5000 5500 7000 6700) (list 4300 5800 6100 6400) (list 4300 5800 6100 7600) (list 4300 5800 6400 6100) (list 4300 5800 6400 7300) (list 4300 5200 5800 6100) (list 4300 5200 5800 7300) (list 4300 5200 7000 6100) (list 4300 5200 7000 7300) (list 4300 5200 6100 7000) (list 4600 5500 6100 6400) (list 4600 5500 6100 7600) (list 4600 5500 6400 6100) (list 4600 5500 6400 7300) (list 4600 5200 6700 6100) (list 4600 5200 6700 7300) (list 4600 5200 6100 6700) (list 4900 5500 5800 6400) (list 4900 5500 5800 7600) (list 4900 5500 7000 6400) (list 4900 5500 7000 7600) (list 4900 5500 6400 7000) (list 4900 5800 6700 6400) (list 4900 5800 6700 7600) (list 4900 5800 6400 6700) (list 4900 5200 6700 7000) (list 4900 5200 5800 6700) (list 4900 5200 7000 6700) (list 4300 5900 6200 6500) (list 4300 5900 6500 6200) (list 4300 5900 6500 7400) (list 4300 5000 5900 6500) (list 4300 5000 7100 6500) (list 4300 5000 6500 7100) (list 4300 5300 5900 6200) (list 4300 5300 5900 7400) (list 4300 5300 7100 6200) (list 4300 5300 7100 7400) (list 4300 5300 6200 7100) (list 4700 5500 6200 6500) (list 4700 5500 6500 6200) (list 4700 5500 6500 7400) (list 4700 5000 6700 6500) (list 4700 5000 6500 6700) (list 4700 5300 6700 6200) (list 4700 5300 6700 7400) (list 4700 5300 6200 6700) (list 5000 5500 5900 6500) (list 5000 5500 7100 6500) (list 5000 5500 6500 7100) (list 5000 5900 6700 6500) (list 5000 5900 6500 6700) (list 5000 5300 6700 7100) (list 5000 5300 5900 6700) (list 5000 5300 7100 6700) (list 5300 5500 5900 6200) (list 5300 5500 5900 7400) (list 5300 5500 7100 6200) (list 5300 5500 7100 7400) (list 5300 5500 6200 7100) (list 5300 5900 6700 6200) (list 5300 5900 6700 7400) (list 5300 5900 6200 6700) (list 5300 5000 6700 7100) (list 5300 5000 5900 6700) (list 5300 5000 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 6900 6900) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4500 6000 6400 6900) (list 4500 6000 6900 6400) (list 4500 6000 6900 7600) (list 4500 5200 6000 6900) (list 4500 5200 7200 6900) (list 4500 5200 6900 6000) (list 4500 5200 6900 7200) (list 4500 5700 6000 6400) (list 4500 5700 6000 7600) (list 4500 5700 7200 6400) (list 4500 5700 7200 7600) (list 4500 5700 6400 6000) (list 4500 5700 6400 7200) (list 4800 5200 6900 6900) (list 4800 5700 6900 6400) (list 4800 5700 6900 7600) (list 4800 5700 6400 6900) (list 5200 6000 6900 6900) (list 5200 5700 6900 6000) (list 5200 5700 6900 7200) (list 5200 5700 6000 6900) (list 5200 5700 7200 6900) (list 4500 6000 6300 6600) (list 4500 6000 6600 6300) (list 4500 6000 6600 7500) (list 4500 5100 6000 6600) (list 4500 5100 7200 6600) (list 4500 5100 6600 6000) (list 4500 5100 6600 7200) (list 4500 5400 6000 6300) (list 4500 5400 6000 7500) (list 4500 5400 7200 6300) (list 4500 5400 7200 7500) (list 4500 5400 6300 6000) (list 4500 5400 6300 7200) (list 4500 5200 6100 6700) (list 4500 5200 6700 6100) (list 4500 5200 6700 7300) (list 4500 5500 6100 6400) (list 4500 5500 6100 7600) (list 4500 5500 6400 6100) (list 4500 5500 6400 7300) (list 4900 5700 6400 6700) (list 4900 5700 6700 6400) (list 4900 5700 6700 7600) (list 4900 5200 6900 6700) (list 4900 5200 6700 6900) (list 4900 5500 6900 6400) (list 4900 5500 6900 7600) (list 4900 5500 6400 6900) (list 5200 5700 6100 6700) (list 5200 5700 6700 6100) (list 5200 5700 6700 7300) (list 5200 5500 6900 6100) (list 5200 5500 6900 7300) (list 5200 5500 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4700 5000 6600 7100) (list 4700 5000 5900 6600) (list 4700 5000 7100 6600) (list 4700 5400 6200 7100) (list 4700 5400 5900 6200) (list 4700 5400 5900 7400) (list 4700 5400 7100 6200) (list 4700 5400 7100 7400) (list 4700 5900 6200 6600) (list 4700 5900 6600 6200) (list 4700 5900 6600 7400) (list 5000 5400 5900 7100) (list 5000 5400 7100 7100) (list 5000 5900 5900 6600) (list 5000 5900 7100 6600) (list 5000 5900 6600 7100) (list 5400 5000 5900 7100) (list 5400 5000 7100 7100) (list 5400 5900 5900 6200) (list 5400 5900 5900 7400) (list 5400 5900 7100 6200) (list 5400 5900 7100 7400) (list 5400 5900 6200 7100) (list 4700 5000 6500 6800) (list 4700 5000 6800 6500) (list 4700 5300 6200 6800) (list 4700 5300 6800 6200) (list 4700 5300 6800 7400) (list 4700 5600 6200 6500) (list 4700 5600 6500 6200) (list 4700 5600 6500 7400) (list 4700 5100 6600 6900) (list 4700 5100 6900 6600) (list 4700 5400 6300 6900) (list 4700 5400 6900 6300) (list 4700 5400 6900 7500) (list 4700 5700 6300 6600) (list 4700 5700 6600 6300) (list 4700 5700 6600 7500) (list 5100 5900 6600 6900) (list 5100 5900 6900 6600) (list 5100 5400 5900 6900) (list 5100 5400 7100 6900) (list 5100 5400 6900 7100) (list 5100 5700 5900 6600) (list 5100 5700 7100 6600) (list 5100 5700 6600 7100) (list 5400 5900 6300 6900) (list 5400 5900 6900 6300) (list 5400 5900 6900 7500) (list 5400 5100 5900 6900) (list 5400 5100 7100 6900) (list 5400 5100 6900 7100) (list 5400 5700 5900 6300) (list 5400 5700 5900 7500) (list 5400 5700 7100 6300) (list 5400 5700 7100 7500) (list 5400 5700 6300 7100) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 4800 5100 6700 6000) (list 4800 5100 6700 7200) (list 4800 5100 6000 6700) (list 4800 5100 7200 6700) (list 4800 5500 6300 6000) (list 4800 5500 6300 7200) (list 4800 5500 6000 6300) (list 4800 5500 6000 7500) (list 4800 5500 7200 6300) (list 4800 5500 7200 7500) (list 4800 6000 6300 6700) (list 4800 6000 6700 6300) (list 4800 6000 6700 7500) (list 5100 5500 6000 6000) (list 5100 5500 6000 7200) (list 5100 5500 7200 6000) (list 5100 5500 7200 7200) (list 5100 6000 6000 6700) (list 5100 6000 7200 6700) (list 5100 6000 6700 6000) (list 5100 6000 6700 7200) (list 4800 5100 6600 6900) (list 4800 5100 6900 6600) (list 4800 5400 6300 6900) (list 4800 5400 6900 6300) (list 4800 5400 6900 7500) (list 4800 5700 6300 6600) (list 4800 5700 6600 6300) (list 4800 5700 6600 7500) (list 5100 6000 6600 6900) (list 5100 6000 6900 6600) (list 5100 5400 6000 6900) (list 5100 5400 7200 6900) (list 5100 5400 6900 6000) (list 5100 5400 6900 7200) (list 5100 5700 6000 6600) (list 5100 5700 7200 6600) (list 5100 5700 6600 6000) (list 5100 5700 6600 7200) (list 5400 6000 6300 6900) (list 5400 6000 6900 6300) (list 5400 6000 6900 7500) (list 5400 5100 6000 6900) (list 5400 5100 7200 6900) (list 5400 5100 6900 6000) (list 5400 5100 6900 7200) (list 5400 5700 6000 6300) (list 5400 5700 6000 7500) (list 5400 5700 7200 6300) (list 5400 5700 7200 7500) (list 5400 5700 6300 6000) (list 5400 5700 6300 7200) (list 4800 5200 6700 7000) (list 4800 5200 5800 6700) (list 4800 5200 7000 6700) (list 4800 5500 6400 7000) (list 4800 5500 5800 6400) (list 4800 5500 5800 7600) (list 4800 5500 7000 6400) (list 4800 5500 7000 7600) (list 4800 5800 6400 6700) (list 4800 5800 6700 6400) (list 4800 5800 6700 7600) (list 5200 6000 6700 7000) (list 5200 6000 5800 6700) (list 5200 6000 7000 6700) (list 5200 5500 6000 7000) (list 5200 5500 7200 7000) (list 5200 5500 5800 6000) (list 5200 5500 5800 7200) (list 5200 5500 7000 6000) (list 5200 5500 7000 7200) (list 5200 5800 6000 6700) (list 5200 5800 7200 6700) (list 5200 5800 6700 6000) (list 5200 5800 6700 7200) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5000 5300 6900 6200) (list 5000 5300 6900 7400) (list 5000 5300 6200 6900) (list 5000 5700 6500 6200) (list 5000 5700 6500 7400) (list 5000 5700 6200 6500) (list 5300 5000 6900 6200) (list 5300 5000 6900 7400) (list 5300 5000 6200 6900) (list 5300 5700 6200 6200) (list 5300 5700 6200 7400) (list 5000 5300 6800 7100) (list 5000 5300 5900 6800) (list 5000 5300 7100 6800) (list 5000 5600 6500 7100) (list 5000 5600 5900 6500) (list 5000 5600 7100 6500) (list 5000 5900 6500 6800) (list 5000 5900 6800 6500) (list 5300 5000 6800 7100) (list 5300 5000 5900 6800) (list 5300 5000 7100 6800) (list 5000 5400 6900 6000) (list 5000 5400 6900 7200) (list 5000 5400 6000 6900) (list 5000 5400 7200 6900) (list 5000 5700 6600 6000) (list 5000 5700 6600 7200) (list 5000 5700 6000 6600) (list 5000 5700 7200 6600) (list 5000 6000 6600 6900) (list 5000 6000 6900 6600) (list 5400 5000 6900 6000) (list 5400 5000 6900 7200) (list 5400 5000 6000 6900) (list 5400 5000 7200 6900) (list 5400 5700 6200 6000) (list 5400 5700 6200 7200) (list 5400 5700 6000 6200) (list 5400 5700 6000 7400) (list 5400 5700 7200 6200) (list 5400 5700 7200 7400) (list 5400 6000 6200 6900) (list 5400 6000 6900 6200) (list 5400 6000 6900 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5200 5500 5900 6400) (list 5200 5500 5900 7600) (list 5200 5500 7100 6400) (list 5200 5500 7100 7600) (list 5200 5500 6400 7100) (list 5200 5900 6700 6400) (list 5200 5900 6700 7600) (list 5200 5900 6400 6700) (list 5200 5500 5800 6100) (list 5200 5500 5800 7300) (list 5200 5500 7000 6100) (list 5200 5500 7000 7300) (list 5200 5500 6100 7000) (list 5200 5800 6700 6100) (list 5200 5800 6700 7300) (list 5200 5800 6100 6700) (list 5200 5600 5900 6200) (list 5200 5600 5900 7400) (list 5200 5600 7100 6200) (list 5200 5600 7100 7400) (list 5200 5600 6200 7100) (list 5200 5900 6800 6200) (list 5200 5900 6800 7400) (list 5200 5900 6200 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900) (list 5300 5600 6000 6500) (list 5300 5600 7200 6500) (list 5300 5600 6500 6000) (list 5300 5600 6500 7200) (list 5300 6000 6800 6500) (list 5300 6000 6500 6800) (list 5300 5600 5900 6200) (list 5300 5600 5900 7400) (list 5300 5600 7100 6200) (list 5300 5600 7100 7400) (list 5300 5600 6200 7100) (list 5300 5900 6800 6200) (list 5300 5900 6800 7400) (list 5300 5900 6200 6800) (list 5300 5700 6000 6300) (list 5300 5700 6000 7500) (list 5300 5700 7200 6300) (list 5300 5700 7200 7500) (list 5300 5700 6300 6000) (list 5300 5700 6300 7200) (list 5300 6000 6900 6300) (list 5300 6000 6900 7500) (list 5300 6000 6300 6900))) nil "database1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "all progression-intervals vor voice1" (om-load-patch-abs1 "all progression-intervals vor voice1" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 188) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 117 50) (om-make-point 434 30) (list 0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200) "(0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((1 0 0 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote nil) (om-make-point 537 69) nil (list (list 0 200 -200 100 -100 300 -300 400 -400 700 -700 500 -500 1200 -1200)) nil "all progression-intervals vor voice1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 90 168) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 298 112) (om-make-point 48 30) (list 1 2) "(1 2)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "database1" (om-load-patch-abs1 "database1" (quote ((let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 500 256) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 300 220) (om-make-point 90 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 197 130) (om-make-point 33 30) nil "nil" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 626 164) (om-make-point 101 30) (list 0 1200 2400) "(0 1200 2400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 390 220) (om-make-point 90 30) (list 6000 7600) "(6000 7600)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 305 382) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil) (om-load-inputkeyword (quote input-keyword) "" "permutations" (quote :permutations) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 20 292) (om-make-point 644 67) (list (list (list 4300 5900 6200 6700) (list 4300 5900 5500 6200) (list 4300 5900 5500 7400) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 5500 7100) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 5500 6700) (list 4700 5000 6700 6700) (list 4700 5500 5500 6200) (list 4700 5500 5500 7400) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 5500 6700) (list 5000 5900 6700 6700) (list 5000 5500 5500 7100) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 5700 6100) (list 4500 5200 5700 7300) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 5700 6900) (list 4900 5200 6900 6900) (list 4900 5700 5700 6400) (list 4900 5700 5700 7600) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 5700 6100) (list 5200 5700 5700 7300) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4800 5200 5500 6000) (list 4800 5200 5500 7200) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 5500 6400) (list 4800 6000 5500 7600) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 5500 6000) (list 5200 6000 5500 7200) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 5000 5400 5700 6200) (list 5000 5400 5700 7400) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 5700 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 5600 6400) (list 5200 5900 5600 7600) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 120 220) (om-make-point 90 30) (list 4300 5400) "(4300 5400)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 10 78) (om-make-point 129 30) (list (list 0 400 700 1200)) "((0 400 700 1200))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 354 120) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 210 220) (om-make-point 90 30) (list 5000 6000) "(5000 6000)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 5 0 nil 0) (8 0 6 0 nil 0) (7 0 6 1 nil 0) (10 0 6 2 nil 0) (1 0 6 3 nil 0) (4 0 6 4 nil 0) (9 0 6 5 nil 0) (0 0 6 6 nil 0) (3 0 6 7 nil 0))) 7.02 nil "" (om-make-point 151 199) (om-make-point 898 515)) (quote nil) (om-make-point 316/5 45) nil (list (list (list 4300 5900 6200 6700) (list 4300 5900 5500 6200) (list 4300 5900 5500 7400) (list 4300 5900 6700 6200) (list 4300 5900 6700 7400) (list 4300 5000 5900 6700) (list 4300 5000 7100 6700) (list 4300 5000 5500 7100) (list 4300 5000 6700 7100) (list 4300 5500 5900 6200) (list 4300 5500 5900 7400) (list 4300 5500 7100 6200) (list 4300 5500 7100 7400) (list 4300 5500 6200 7100) (list 4700 5000 5500 6700) (list 4700 5000 6700 6700) (list 4700 5500 5500 6200) (list 4700 5500 5500 7400) (list 4700 5500 6700 6200) (list 4700 5500 6700 7400) (list 4700 5500 6200 6700) (list 5000 5900 5500 6700) (list 5000 5900 6700 6700) (list 5000 5500 5500 7100) (list 5000 5500 6700 7100) (list 5000 5500 5900 6700) (list 5000 5500 7100 6700) (list 4500 5200 6100 6900) (list 4500 5200 5700 6100) (list 4500 5200 5700 7300) (list 4500 5200 6900 6100) (list 4500 5200 6900 7300) (list 4500 5700 6100 6400) (list 4500 5700 6100 7600) (list 4500 5700 6400 6100) (list 4500 5700 6400 7300) (list 4900 5200 5700 6900) (list 4900 5200 6900 6900) (list 4900 5700 5700 6400) (list 4900 5700 5700 7600) (list 4900 5700 6900 6400) (list 4900 5700 6900 7600) (list 4900 5700 6400 6900) (list 5200 5700 5700 6100) (list 5200 5700 5700 7300) (list 5200 5700 6900 6100) (list 5200 5700 6900 7300) (list 5200 5700 6100 6900) (list 4700 5100 6600 7100) (list 4700 5100 5900 6600) (list 4700 5100 7100 6600) (list 4700 5400 6300 7100) (list 4700 5400 5900 6300) (list 4700 5400 5900 7500) (list 4700 5400 7100 6300) (list 4700 5400 7100 7500) (list 4700 5900 6300 6600) (list 4700 5900 6600 6300) (list 4700 5900 6600 7500) (list 5100 5400 5900 7100) (list 5100 5400 7100 7100) (list 5100 5900 5900 6600) (list 5100 5900 7100 6600) (list 5100 5900 6600 7100) (list 5400 5100 5900 7100) (list 5400 5100 7100 7100) (list 5400 5900 5900 6300) (list 5400 5900 5900 7500) (list 5400 5900 7100 6300) (list 5400 5900 7100 7500) (list 5400 5900 6300 7100) (list 4800 5200 5500 6000) (list 4800 5200 5500 7200) (list 4800 5200 6700 6000) (list 4800 5200 6700 7200) (list 4800 5200 6000 6700) (list 4800 5200 7200 6700) (list 4800 5500 6400 6000) (list 4800 5500 6400 7200) (list 4800 5500 6000 6400) (list 4800 5500 6000 7600) (list 4800 5500 7200 6400) (list 4800 5500 7200 7600) (list 4800 6000 6400 6700) (list 4800 6000 5500 6400) (list 4800 6000 5500 7600) (list 4800 6000 6700 6400) (list 4800 6000 6700 7600) (list 5200 5500 6000 6000) (list 5200 5500 6000 7200) (list 5200 5500 7200 6000) (list 5200 5500 7200 7200) (list 5200 6000 6000 6700) (list 5200 6000 7200 6700) (list 5200 6000 5500 6000) (list 5200 6000 5500 7200) (list 5200 6000 6700 6000) (list 5200 6000 6700 7200) (list 5000 5400 5700 6200) (list 5000 5400 5700 7400) (list 5000 5400 6900 6200) (list 5000 5400 6900 7400) (list 5000 5400 6200 6900) (list 5000 5700 6600 6200) (list 5000 5700 6600 7400) (list 5000 5700 6200 6600) (list 5400 5000 5700 6200) (list 5400 5000 5700 7400) (list 5400 5000 6900 6200) (list 5400 5000 6900 7400) (list 5400 5000 6200 6900) (list 5400 5700 6200 6200) (list 5400 5700 6200 7400) (list 5200 5600 5900 6400) (list 5200 5600 5900 7600) (list 5200 5600 7100 6400) (list 5200 5600 7100 7600) (list 5200 5600 6400 7100) (list 5200 5900 5600 6400) (list 5200 5900 5600 7600) (list 5200 5900 6800 6400) (list 5200 5900 6800 7600) (list 5200 5900 6400 6800) (list 5300 5700 6000 6500) (list 5300 5700 7200 6500) (list 5300 5700 6500 6000) (list 5300 5700 6500 7200) (list 5300 6000 5700 6500) (list 5300 6000 6900 6500) (list 5300 6000 6500 6900))) nil "database1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 53 397) (om-make-point 1143 297) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (16 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 476 433) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g) (quote f)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 231 91) (om-make-point 34 30) 16 "16" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 130 125) (om-make-point 153 30) (list 4800 6000 6400 6700) "(4800 6000 6400 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "base-list" (quote :base-list) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval4" (quote :voice-interval4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter1" (quote :voice-counter1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "counter-interval1" (quote :counter-interval1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter2" (quote :voice-counter2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "counter-interval2" (quote :counter-interval2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval1" (quote :voice-interval1) nil nil))) (om-make-point 174 219) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((13 0 0 0 nil 0) (9 0 7 0 nil 0) (5 0 7 1 nil 0) (0 0 10 1 nil 0) (7 0 13 0 nil 0) (12 0 13 1 nil 0) (11 0 13 2 nil 0) (8 0 13 3 nil 1) (3 0 13 4 nil 0) (4 0 13 5 nil 0) (2 0 13 6 nil 0) (1 0 13 8 nil 0) (6 0 13 9 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_seiten.omp b/examples/03_horizontal-composition/harmon-progress_seiten.omp
index 0d1ca71..9dc89d9 100644
--- a/examples/03_horizontal-composition/harmon-progress_seiten.omp
+++ b/examples/03_horizontal-composition/harmon-progress_seiten.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 86 283) (om-make-point 50 50) (om-make-point 921 649) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 86 283) (om-make-point 50 50) (om-make-point 921 649) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_seiten" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 227 30) (quote "After a pause each note is possible") nil (om-make-point 404 353) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 70 215) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 132 113) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 96 143) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 257 268)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 238 297) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 167 65) (om-make-point 80 30) (list 5500 7200) "(5500 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 303 144) (om-make-point 155 30) (list (list 2 1) (list (quote omlead::seiten))) "((2 1) (omlead::seiten))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 450 191) (om-make-point 77 30) (list 0 100 200) "(0 100 200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 274 60) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 54 413) (om-make-point 738 150) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (-4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 229 157) (om-make-point 44 27) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6500) "(6000 6500)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 89 25) (om-make-point 90 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil))) (om-make-point 79 122) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-counter1" (quote :voice-counter1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval2" (quote :voice-interval2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval1" (quote :voice-interval1) nil nil))) (om-make-point 174 219) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((12 0 1 0 nil 0) (1 0 6 1 nil 0) (9 0 11 0 nil 0) (10 0 11 1 nil 0) (2 0 11 2 nil 0) (5 0 11 3 nil 0) (11 0 12 0 nil 0) (8 0 12 1 nil 0) (7 0 12 2 nil 0) (3 0 12 3 nil 0) (4 0 12 4 nil 0) (4 0 12 5 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_voice-tie.omp b/examples/03_horizontal-composition/harmon-progress_voice-tie.omp
index cb8bb6c..a29dd44 100644
--- a/examples/03_horizontal-composition/harmon-progress_voice-tie.omp
+++ b/examples/03_horizontal-composition/harmon-progress_voice-tie.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 39 268) (om-make-point 50 50) (om-make-point 1092 673) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 39 268) (om-make-point 50 50) (om-make-point 1092 673) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "hamron-progress_voice-tie" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 219) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 69 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 142 119) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 106 149) (om-make-point 60 35) nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 267 344)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 225 299) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 116 384) (om-make-point 781 183) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 400 20) (om-make-point 370 280) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (quote g) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 394 273) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 302 172) (om-make-point 148 30) (list 1 nil 1 nil 1 nil 1 nil 1) "(1 nil 1 nil 1 nil 1 nil 1)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 118 30) (quote "voice-tie") "" (om-make-point 268 213) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 230 160) (om-make-point 34 30) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6700) "(6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 145 40) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil))) (om-make-point 92 117) nil (list (list (list 6000 6700) (list 6700 6000) (list 6000 6500) (list 6500 6000) (list 6100 6800) (list 6800 6100) (list 6100 6600) (list 6600 6100) (list 6200 6900) (list 6900 6200) (list 6200 6700) (list 6700 6200) (list 6300 7000) (list 7000 6300) (list 6300 6800) (list 6800 6300) (list 6400 7100) (list 7100 6400) (list 6400 6900) (list 6900 6400) (list 6500 7200) (list 7200 6500) (list 6500 7000) (list 7000 6500) (list 6600 7100) (list 7100 6600) (list 6700 7200) (list 7200 6700))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil))) (om-make-point 170 215) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((10 0 0 0 nil 0) (0 0 1 1 nil 0) (3 0 2 0 nil 0) (7 0 9 0 nil 0) (8 0 9 1 nil 0) (8 0 9 2 nil 0) (9 0 10 0 nil 0) (6 0 10 1 nil 0) (5 0 10 2 nil 0) (3 0 10 3 nil 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_voice-tie2.omp b/examples/03_horizontal-composition/harmon-progress_voice-tie2.omp
index 1850498..d0721a4 100644
--- a/examples/03_horizontal-composition/harmon-progress_voice-tie2.omp
+++ b/examples/03_horizontal-composition/harmon-progress_voice-tie2.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 193 307) (om-make-point 303 53) (om-make-point 1166 753) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 193 307) (om-make-point 303 53) (om-make-point 1166 753) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_voice-tie2" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 227) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 105 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 190 109) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 154 139) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 315 352)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 237 289) nil (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))) nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "TEXTFILE" (quote textfile) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "input data or text" "exp-list" nil) (om-load-inputfunmenu1 (quote input-funmenu) "append or supersede" "ed-mode" "supersede" (list (list "append" "append") (list "supersede" "supersede"))) (om-load-inputfunmenu1 (quote input-funmenu) "eval interpretation mode" "eval-mode" "list" (list (list "text" "text") (list "data list" "data") (list "list" "list") (list "value" "value"))))) (om-make-point 706 60) (om-make-point 51 325) (load-buffer-textfile (quote ("100" "200" "300" "400" "500" "600" "700" "800" "900" "1000" "1100" "1200" "-100" "-200" "-300" "-400" "-500" "-600" "-700" "-800" "-900" "-1000" "-1100" "-1200" "" "" "")) (quote textfile) "supersede" "list") nil nil (pairlis (quote (winsize winpos)) (list (om-make-point 335 275) (om-make-point 10 40))) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "all progression-intervals for instr 2" (om-load-patch-abs1 "all progression-intervals for instr 2" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 196) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "SORT-LIST" (quote sort-list) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 285 286) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 257 234) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 297 169) (om-make-point 32 30) -1 "-1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM*" (quote om*) (quote ((om-load-inputfun (quote input-funbox) "number or list" "ARG1" -1) (om-load-inputfun (quote input-funbox) "number or list" "ARG2" 0))) (om-make-point 294 199) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 7" (quote t) (quote nil) (om-make-point 299 51) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 204 50) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 248 50) (om-make-point 48 30) 1200 "1200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "ARITHM-SER" (quote arithm-ser) (quote ((om-load-inputfun (quote input-funbox) "begin" "BEGIN" 0) (om-load-inputfun (quote input-funbox) "end " "END" 10) (om-load-inputfun (quote input-funbox) "step" "STEP" 1))) (om-make-point 244 116) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (2 0 1 0 nil 0) (8 0 2 0 nil 2) (4 0 2 1 nil 0) (3 0 4 0 nil 0) (8 0 4 1 nil 2) (6 0 8 0 nil 2) (7 0 8 1 nil 2) (5 0 8 2 nil 2))) 7.02 nil "" (om-make-point 200 200) (om-make-point 424 411)) (quote nil) (om-make-point 425 539/8) nil (list (list 100 200 300 400 500 600 700 800 900 1000 1100 1200 -100 -200 -300 -400 -500 -600 -700 -800 -900 -1000 -1100 -1200)) "x" "all progression-intervals for instr 2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 76 391) (om-make-point 732 160) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4)) ((4 4) (4))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 280 161) (om-make-point 148 30) (list 1 nil 1 nil 1 nil 1 nil 1) "(1 nil 1 nil 1 nil 1 nil 1)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 118 30) (quote "voice-tie") "" (om-make-point 288 220) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 229 157) (om-make-point 44 27) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6700) "(6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 145 40) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil))) (om-make-point 92 117) nil (list (list (list 6000 6700) (list 6700 6000) (list 6000 6500) (list 6500 6000) (list 6100 6800) (list 6800 6100) (list 6100 6600) (list 6600 6100) (list 6200 6900) (list 6900 6200) (list 6200 6700) (list 6700 6200) (list 6300 7000) (list 7000 6300) (list 6300 6800) (list 6800 6300) (list 6400 7100) (list 7100 6400) (list 6400 6900) (list 6900 6400) (list 6500 7200) (list 7200 6500) (list 6500 7000) (list 7000 6500) (list 6600 7100) (list 7100 6600) (list 6700 7200) (list 7200 6700))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval2" (quote :voice-interval2) nil nil))) (om-make-point 170 215) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((11 0 0 0 nil 0) (2 0 1 1 nil 0) (0 0 3 1 nil 0) (8 0 10 0 nil 0) (9 0 10 1 nil 0) (9 0 10 2 nil 0) (10 0 11 0 nil 0) (7 0 11 1 nil 0) (6 0 11 2 nil 0) (4 0 11 3 nil 0) (2 0 11 4 ((om-make-point 523 1059/8) (om-make-point 523 1379/8) (om-make-point 478 1715/8) (om-make-point 255 215)) 0))) nil 7.02))
diff --git a/examples/03_horizontal-composition/harmon-progress_voice-tie3.omp b/examples/03_horizontal-composition/harmon-progress_voice-tie3.omp
index 3f728b8..0d2d49d 100644
--- a/examples/03_horizontal-composition/harmon-progress_voice-tie3.omp
+++ b/examples/03_horizontal-composition/harmon-progress_voice-tie3.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 84 343) (om-make-point 50 50) (om-make-point 1284 674) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:12
+; (7.02 :patc (om-make-point 84 343) (om-make-point 50 50) (om-make-point 1284 674) "" 183 0 nil "2023/12/09 18:23:10")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "harmon-progress_voice-tie3" (quote ((let ((box (om-load-boxcall (quote abstraction) "make-voices" (om-load-patch-abs1 "make-voices" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 50 227) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 105 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 161 125) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 125 155) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((3 0 0 0 nil 0) (1 0 3 0 nil 0) (2 0 3 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 286 352)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 208 305) nil nil nil "make-voices"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 3" (quote list) (quote nil) (om-make-point 448 142) (om-make-point 154 30) (list nil 2 nil 2 nil 2 nil 2 nil) "(nil 2 nil 2 nil 2 nil 2 nil)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list 2" (quote list) (quote nil) (om-make-point 437 204) (om-make-point 77 30) (list 0 100 200) "(0 100 200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 160 87) (om-make-point 200 30) (list 200 200 100 200 200 200 100) "(200 200 100 200 200 200 100)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY 2" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 80 392) (om-make-point 1017 158) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (10 (((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4)) ((4 4) (4.0)) ((4 4) (4.0)) ((4 4) (4.0))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (4000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (quote g) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :midi-player) 1 nil 1000 0 (om-make-point 370 280) (om-make-point 400 20) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 289 140) (om-make-point 148 30) (list 1 nil 1 nil 1 nil 1 nil 1) "(1 nil 1 nil 1 nil 1 nil 1)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 118 30) (quote "voice-tie") "" (om-make-point 288 220) nil (om-make-color 0 0 0) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 229 157) (om-make-point 44 27) 10 "10" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 179 131) (om-make-point 90 30) (list 6000 6700) "(6000 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 18 57) (om-make-point 118 30) (list (list 0 700) (list 0 500)) "((0 700) (0 500))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 145 40) (om-make-point 80 30) (list 6000 7200) "(6000 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "skala" (quote :skala) nil nil))) (om-make-point 92 117) nil (list (list (list 6000 6700) (list 6700 6000) (list 6000 6500) (list 6500 6000) (list 6200 6900) (list 6900 6200) (list 6200 6700) (list 6700 6200) (list 6400 7100) (list 7100 6400) (list 6400 6900) (list 6900 6400) (list 6500 7200) (list 7200 6500) (list 6500 7000) (list 7000 6500) (list 6700 7200) (list 7200 6700))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie2" (quote :voice-tie2) nil nil))) (om-make-point 170 215) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((12 0 0 0 nil 0) (0 0 4 1 nil 0) (9 0 11 0 nil 0) (10 0 11 1 nil 0) (10 0 11 2 nil 0) (3 0 11 3 nil 0) (11 0 12 0 nil 0) (8 0 12 1 nil 0) (7 0 12 2 nil 0) (5 0 12 3 nil 0) (1 0 12 4 nil 0))) nil 7.02))
diff --git a/examples/04_utilities/.finderinfo b/examples/04_utilities/.finderinfo
new file mode 100644
index 0000000..b1a04e1
--- /dev/null
+++ b/examples/04_utilities/.finderinfo
@@ -0,0 +1,3 @@
+; OM File Header - Saved 2023/12/09 18:23:13
+; (7.02 :fold (om-make-point 158 159) (om-make-point 50 50) (om-make-point 250 320) "" 186 1 nil nil)
+; End File Header
diff --git a/examples/04_utilities/get-score_1.omp b/examples/04_utilities/get-score_1.omp
index 7de6a0c..2f90444 100644
--- a/examples/04_utilities/get-score_1.omp
+++ b/examples/04_utilities/get-score_1.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 126 313) (om-make-point 50 50) (om-make-point 1279 833) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:13
+; (7.02 :patc (om-make-point 126 313) (om-make-point 50 50) (om-make-point 1279 833) "" 183 0 nil "2023/12/09 18:23:12")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "get-score_1" (quote ((let ((box (om-load-boxcall (quote abstraction) "voicetie2" (om-load-patch-abs1 "voicetie2" (quote ((let ((box (om-load-boxout "output 2" 0 (om-make-point 124 430) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 125 324) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 95 250) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 167 125) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 130 171) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 178 93) (om-make-point 126 30) (list nil 2 nil nil 1 3 nil) "(nil 2 nil nil 1 3 nil)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (3 0 2 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (6 0 4 0 nil 0) (1 0 5 0 nil 0) (4 0 5 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 228 743/5) nil (list (list nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil)) nil "voicetie2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "voicetie1" (om-load-patch-abs1 "voicetie1" (quote ((let ((box (om-load-boxout "output 2" 0 (om-make-point 124 430) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 125 324) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 95 250) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 167 125) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 130 171) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 178 93) (om-make-point 114 30) (list 1 4 4 3 nil 2 nil) "(1 4 4 3 nil 2 nil)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (3 0 2 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (6 0 4 0 nil 0) (1 0 5 0 nil 0) (4 0 5 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 303 555)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 171 743/5) nil (list (list 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil)) nil "voicetie1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS 2" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval2" (quote :voice-interval2) nil nil))) (om-make-point 90 413) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "numerator" (om-load-patch-abs1 "numerator" (quote ((let ((box (om-load-boxout "output 2" 1 (om-make-point 1834/3 465/2) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 229 318) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 159) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 353 261) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 8" (quote t) (quote nil) (om-make-point 297 50) (om-make-point 27 30) 6 "6" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 9" (quote t) (quote nil) (om-make-point 374 122) (om-make-point 48 30) (list 3 4) "(3 4)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 346 152) nil (list (list 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3 4)) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 337 64) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAKE-LIST" (quote make-list) (quote ((om-load-inputfun (quote input-funbox) "SIZE" "SIZE" nil) (om-load-inputkeyword (quote input-keyword) "" "initial-element" (quote :initial-element) nil nil))) (om-make-point 301 94) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "NTH-RANDOM" (quote nth-random) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 331 201) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((4 0 0 0 nil 0) (3 0 1 0 nil 0) (9 0 3 0 nil 0) (2 0 3 1 nil 0) (8 0 6 0 nil 0) (5 0 6 1 nil 0) (4 0 8 0 nil 0) (7 0 8 1 nil 0) (6 0 9 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 2209/3 443)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 3270/7 734/7) nil (list (list 1 3 1 4 1 1 1 1 1 1 1 1 1 1 1 1 4 1 3 1 1 3 1 1 1 3 1 1 1 1 1 1 1 1 1 1 1 1 4 1 1 1 1 1 4 1 1 4 1 1 1 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4 1 1 4 1 1 1 3 1 1 1 1 1 1 1) 6) nil "numerator"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "velocities" (om-load-patch-abs1 "velocities" (quote ((let ((box (om-load-boxout "output 4" 3 (om-make-point 404 318) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output 3" 2 (om-make-point 369 318) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output 2" 1 (om-make-point 334 318) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 299 318) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input 2" 1 (om-make-point 297 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 159) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 592 246) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "APPEND 2" (quote append) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 588 128) nil (list (list 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 120)) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "list" (quote list) (quote nil) (om-make-point 611 92) (om-make-point 59 30) (list 70 120) "(70 120)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 565 56) (om-make-point 34 30) 20 "20" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "MAKE-LIST" (quote make-list) (quote ((om-load-inputfun (quote input-funbox) "SIZE" "SIZE" nil) (om-load-inputkeyword (quote input-keyword) "" "initial-element" (quote :initial-element) nil nil))) (om-make-point 529 86) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "NTH-RANDOM 2" (quote nth-random) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 573 181) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((6 0 0 0 nil 0) (6 0 1 0 nil 0) (6 0 2 0 nil 0) (6 0 3 0 nil 0) (11 0 6 0 nil 0) (5 0 6 1 nil 0) (10 0 7 0 nil 0) (8 0 7 1 nil 0) (4 0 10 0 nil 0) (9 0 10 1 nil 0) (7 0 11 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 736 443)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil) (om-load-inputfun (quote input-funbox) "" "input 2" nil))) (om-make-point 2092/3 385/2) nil (list (list 20 20 20 20 120 20 70 20 20 20 120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 120 20 20 20 20 20 70 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 120 20 20 120 20 20 20 20 20 120 20 20 70 20 20 20 70 20 120 70 20 20 20 20 20 20 120 20 20 120 70 20 20 120 20 120 20 20 20 120 120 70 20 20 20 20 20 20 20 20) (list 20 120 20 20 20 20 20 20 70 20 20 20 20 70 20 20 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20 20 20 120 20 70 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20) (list 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20 20 20 20 120 20 20 20 20 20 70 20 20 20 20 20 20 20 20 20 70 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20) (list 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20 20 20 20 20 20 120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20 20 120 20 20 20 20 20 20 20 20 70 20 70 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 20 70 20 20 20 20 20 20 70 20 20 70 20 20 20 70 20 70)) nil "velocities"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 121 33) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 544 238) (om-make-point 27 30) 8 "8" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 1167 248) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 117 186) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-editor-box1 "POLY" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 386 364) (om-make-point 515 329) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (31/2 (((1 8) (1)) ((3 8) (3.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((3 8) (3.0)) ((4 8) (4.0)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((3 8) (3)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8100)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7800)) :ldur (quote (450)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (31/2 (((1 8) (1)) ((3 8) (3)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((3 8) (3)) ((4 8) (4.0)) ((1 8) (1.0)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1.0)) ((3 8) (3)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((4 8) (4.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (600)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (600)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (31/2 (((1 8) (1)) ((3 8) (-3)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((4 8) (4)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((3 8) (-3)) ((4 8) (4)) ((1 8) (-1)) ((1 8) (-1)) ((4 8) (4)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((3 8) (-3)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((4 8) (-4)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((4 8) (-4)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((4 8) (-4)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1)) ((1 8) (-1)) ((1 8) (1)) ((1 8) (-1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (31/2 (((1 8) (1)) ((3 8) (3.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((3 8) (3)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((3 8) (3)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4.0)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((4 8) (4)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1.0)) ((1 8) (1)) ((1 8) (1)) ((1 8) (1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (3600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (150)) :lvel (quote (70)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) "x" nil (pairlis (quote (approx fontsize staff cmnpref deltapict outport inport player zoom notechancolor? grillestep mode winsize winpos score-mode obj-mode cursor-mode show-stems scale)) (list 2 24 (list (quote g) (quote g) (quote f) (quote f)) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (om-make-point 0 0) nil nil (quote :microplayer) 1 nil 1000 0 (om-make-point 1176 605) (om-make-point 103 30) 0 1 (quote :normal) (quote t) nil)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 14" (quote t) (quote nil) (om-make-point 1096 248) (om-make-point 27 30) 4 "4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 13" (quote t) (quote nil) (om-make-point 1027 248) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 12" (quote t) (quote nil) (om-make-point 958 248) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 11" (quote t) (quote nil) (om-make-point 889 248) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 366 226) (om-make-point 41 30) 200 "200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "tempo" "tempo" (quote :tempo) nil nil) (om-load-inputkeyword (quote input-keyword) "number of beats (could be a list or an integer number)" "measure_numerator" (quote :measure_numerator) nil nil) (om-load-inputkeyword (quote input-keyword) "beat (could be a list or an integer number)" "measure_denominator" (quote :measure_denominator) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i1" (quote :vel-i1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i2" (quote :vel-i2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i3" (quote :vel-i3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i4" (quote :vel-i4) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr1 (could be a list or an integer number)" "chan-i1" (quote :chan-i1) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr2 (could be a list or an integer number)" "chan-i2" (quote :chan-i2) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr3 (could be a list or an integer number)" "chan-i3" (quote :chan-i3) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr4 (could be a list or an integer number)" "chan-i4" (quote :chan-i4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 280 278) (om-make-point 963 67) nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "harmon-database" (om-load-patch-abs1 "harmon-database" (quote ((let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE 2" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 128 248) nil (list (list (list 3600 5000 6300 8500) (list 3600 6200 6300 8500) (list 4800 5000 6300 8500) (list 4800 6200 6300 8500) (list 3600 5100 6200 8500) (list 3600 6300 6200 8500) (list 4800 5100 6200 8500) (list 4800 6300 6200 8500) (list 3700 5000 6300 8400) (list 3700 6200 6300 8400) (list 4900 5000 6300 8400) (list 4900 6200 6300 8400) (list 3700 5100 6200 8400) (list 3700 6300 6200 8400) (list 4900 5100 6200 8400) (list 4900 6300 6200 8400) (list 3800 4800 6300 8500) (list 3800 6000 6300 8500) (list 5000 4800 6300 8500) (list 5000 6000 6300 8500) (list 3800 4900 6300 8400) (list 3800 6100 6300 8400) (list 5000 4900 6300 8400) (list 5000 6100 6300 8400) (list 3800 5100 6000 8500) (list 3800 6300 6000 8500) (list 5000 5100 6000 8500) (list 5000 6300 6000 8500) (list 3800 5100 6100 8400) (list 3800 6300 6100 8400) (list 5000 5100 6100 8400) (list 5000 6300 6100 8400) (list 3900 4800 6200 8500) (list 3900 6000 6200 8500) (list 5100 4800 6200 8500) (list 5100 6000 6200 8500) (list 3900 4900 6200 8400) (list 3900 6100 6200 8400) (list 5100 4900 6200 8400) (list 5100 6100 6200 8400) (list 3900 5000 6000 8500) (list 3900 6200 6000 8500) (list 5100 5000 6000 8500) (list 5100 6200 6000 8500) (list 3900 5000 6100 8400) (list 3900 6200 6100 8400) (list 5100 5000 6100 8400) (list 5100 6200 6100 8400) (list 3800 5200 6600 8400) (list 3800 6400 6600 8400) (list 5000 5200 6600 8400) (list 5000 6400 6600 8400) (list 3800 5400 6400 8400) (list 3800 6600 6400 8400) (list 5000 5400 6400 8400) (list 5000 6600 6400 8400) (list 4000 5000 6600 8400) (list 4000 6200 6600 8400) (list 5200 5000 6600 8400) (list 5200 6200 6600 8400) (list 4000 5400 6200 8400) (list 4000 6600 6200 8400) (list 5200 5400 6200 8400) (list 5200 6600 6200 8400) (list 4200 5000 6400 8400) (list 4200 6200 6400 8400) (list 5400 5000 6400 8400) (list 5400 6200 6400 8400) (list 4200 5200 6200 8400) (list 4200 6400 6200 8400) (list 5400 5200 6200 8400) (list 5400 6400 6200 8400) (list 3800 5100 6400 8500) (list 3800 6300 6400 8500) (list 5000 5100 6400 8500) (list 5000 6300 6400 8500) (list 3800 5200 6300 8500) (list 3800 6400 6300 8500) (list 5000 5200 6300 8500) (list 5000 6400 6300 8500) (list 3900 5000 6400 8500) (list 3900 6200 6400 8500) (list 5100 5000 6400 8500) (list 5100 6200 6400 8500) (list 3900 5200 6200 8500) (list 3900 6400 6200 8500) (list 5100 5200 6200 8500) (list 5100 6400 6200 8500) (list 4000 5000 6300 8500) (list 4000 6200 6300 8500) (list 5200 5000 6300 8500) (list 5200 6200 6300 8500) (list 4000 5100 6200 8500) (list 4000 6300 6200 8500) (list 5200 5100 6200 8500) (list 5200 6300 6200 8500) (list 3900 5300 6700 8500) (list 3900 6500 6700 8500) (list 5100 5300 6700 8500) (list 5100 6500 6700 8500) (list 3900 5500 6500 8500) (list 3900 6700 6500 8500) (list 5100 5500 6500 8500) (list 5100 6700 6500 8500) (list 4100 5100 6700 8500) (list 4100 6300 6700 8500) (list 5300 5100 6700 8500) (list 5300 6300 6700 8500) (list 4100 5500 6300 8500) (list 4100 6700 6300 8500) (list 5300 5500 6300 8500) (list 5300 6700 6300 8500) (list 4300 5100 6500 8500) (list 4300 6300 6500 8500) (list 5500 5100 6500 8500) (list 5500 6300 6500 8500) (list 4300 5300 6300 8500) (list 4300 6500 6300 8500) (list 5500 5300 6300 8500) (list 5500 6500 6300 8500) (list 3800 5200 6600 6800) (list 3800 6400 6600 6800) (list 3800 5400 6400 6800) (list 3800 6600 6400 6800) (list 4000 5000 6600 6800) (list 4000 6200 6600 6800) (list 4000 5400 6200 6800) (list 4000 6600 6200 6800) (list 4200 5000 6400 6800) (list 4200 6200 6400 6800) (list 4200 5200 6200 6800) (list 4200 6400 6200 6800) (list 3900 5300 6700 6900) (list 3900 6500 6700 6900) (list 3900 5500 6500 6900) (list 3900 6700 6500 6900) (list 4100 5100 6700 6900) (list 4100 6300 6700 6900) (list 4100 5500 6300 6900) (list 4100 6700 6300 6900) (list 4300 5100 6500 6900) (list 4300 6300 6500 6900) (list 4300 5300 6300 6900) (list 4300 6500 6300 6900) (list 4000 5400 6800 7000) (list 4000 6600 6800 7000) (list 4000 5400 5800 6800) (list 4000 5400 7000 6800) (list 4000 6600 5800 6800) (list 4000 6600 7000 6800) (list 4000 5600 6600 7000) (list 4000 5800 6600 6800) (list 4200 5200 6800 7000) (list 4200 6400 6800 7000) (list 4200 5200 5800 6800) (list 4200 5200 7000 6800) (list 4200 6400 5800 6800) (list 4200 6400 7000 6800) (list 4200 5600 6400 7000) (list 4200 5800 6400 6800) (list 4400 5200 6600 7000) (list 4400 6400 6600 7000) (list 4400 5400 6400 7000) (list 4400 6600 6400 7000) (list 4600 5200 6600 6800) (list 4600 6400 6600 6800) (list 4600 5400 6400 6800) (list 4600 6600 6400 6800) (list 4100 5400 6700 6800) (list 4100 6600 6700 6800) (list 4100 5500 6600 6800) (list 4100 6700 6600 6800) (list 4200 5300 6700 6800) (list 4200 6500 6700 6800) (list 4200 5500 6500 6800) (list 4200 6700 6500 6800) (list 4300 5300 6600 6800) (list 4300 6500 6600 6800) (list 4300 5400 6500 6800) (list 4300 6600 6500 6800) (list 4100 5500 5700 7100) (list 4100 5500 6900 7100) (list 4100 6700 5700 7100) (list 4100 6700 6900 7100) (list 4100 5500 5900 6900) (list 4100 5500 7100 6900) (list 4100 6700 5900 6900) (list 4100 6700 7100 6900) (list 4100 5700 6700 7100) (list 4100 5900 6700 6900) (list 4300 5300 5700 7100) (list 4300 5300 6900 7100) (list 4300 6500 5700 7100) (list 4300 6500 6900 7100) (list 4300 5300 5900 6900) (list 4300 5300 7100 6900) (list 4300 6500 5900 6900) (list 4300 6500 7100 6900) (list 4300 5700 6500 7100) (list 4300 5900 6500 6900) (list 4500 5300 6700 7100) (list 4500 6500 6700 7100) (list 4500 5500 6500 7100) (list 4500 6700 6500 7100) (list 4700 5300 6700 6900) (list 4700 6500 6700 6900) (list 4700 5500 6500 6900) (list 4700 6700 6500 6900) (list 4200 5500 6800 6900) (list 4200 6700 6800 6900) (list 4200 5500 5700 6800) (list 4200 5500 6900 6800) (list 4200 6700 5700 6800) (list 4200 6700 6900 6800) (list 4200 5600 6700 6900) (list 4200 5700 6700 6800) (list 4300 5400 6800 6900) (list 4300 6600 6800 6900) (list 4300 5400 5700 6800) (list 4300 5400 6900 6800) (list 4300 6600 5700 6800) (list 4300 6600 6900 6800) (list 4300 5600 6600 6900) (list 4300 5700 6600 6800) (list 4400 5400 6700 6900) (list 4400 6600 6700 6900) (list 4400 5500 6600 6900) (list 4400 6700 6600 6900) (list 4500 5400 6700 6800) (list 4500 6600 6700 6800) (list 4500 5500 6600 6800) (list 4500 6700 6600 6800) (list 4200 5600 5800 7200) (list 4200 5600 7000 7200) (list 4200 5600 6000 7000) (list 4200 5600 7200 7000) (list 4200 5800 6800 7200) (list 4200 5800 6000 6800) (list 4200 5800 7200 6800) (list 4200 4800 6800 7000) (list 4200 6000 6800 7000) (list 5400 4800 6800 7000) (list 4200 4800 5800 6800) (list 4200 4800 7000 6800) (list 4200 6000 5800 6800) (list 4200 6000 7000 6800) (list 5400 4800 5800 6800) (list 5400 4800 7000 6800) (list 4400 5400 5800 7200) (list 4400 5400 7000 7200) (list 4400 6600 5800 7200) (list 4400 6600 7000 7200) (list 4400 5400 6000 7000) (list 4400 5400 7200 7000) (list 4400 6600 6000 7000) (list 4400 6600 7200 7000) (list 4400 5800 6600 7200) (list 4400 4800 6600 7000) (list 4400 6000 6600 7000) (list 5600 4800 6600 7000) (list 4600 5400 6800 7200) (list 4600 6600 6800 7200) (list 4600 5400 6000 6800) (list 4600 5400 7200 6800) (list 4600 6600 6000 6800) (list 4600 6600 7200 6800) (list 4600 5600 6600 7200) (list 4600 4800 6600 6800) (list 4600 6000 6600 6800) (list 5800 4800 6600 6800) (list 4800 5400 6800 7000) (list 4800 6600 6800 7000) (list 4800 5400 5800 6800) (list 4800 5400 7000 6800) (list 4800 6600 5800 6800) (list 4800 6600 7000 6800) (list 4800 5600 6600 7000) (list 4800 5800 6600 6800) (list 4300 5600 5700 7000) (list 4300 5600 6900 7000) (list 4300 5600 5800 6900) (list 4300 5600 7000 6900) (list 4300 5700 6800 7000) (list 4300 5700 5800 6800) (list 4300 5700 7000 6800) (list 4300 5800 6800 6900) (list 4300 5800 5700 6800) (list 4300 5800 6900 6800) (list 4400 5500 5700 7000) (list 4400 5500 6900 7000) (list 4400 6700 5700 7000) (list 4400 6700 6900 7000) (list 4400 5500 5800 6900) (list 4400 5500 7000 6900) (list 4400 6700 5800 6900) (list 4400 6700 7000 6900) (list 4400 5700 6700 7000) (list 4400 5800 6700 6900) (list 4500 5500 6800 7000) (list 4500 6700 6800 7000) (list 4500 5500 5800 6800) (list 4500 5500 7000 6800) (list 4500 6700 5800 6800) (list 4500 6700 7000 6800) (list 4500 5600 6700 7000) (list 4500 5800 6700 6800) (list 4600 5500 6800 6900) (list 4600 6700 6800 6900) (list 4600 5500 5700 6800) (list 4600 5500 6900 6800) (list 4600 6700 5700 6800) (list 4600 6700 6900 6800) (list 4600 5600 6700 6900) (list 4600 5700 6700 6800) (list 4300 5700 5900 7300) (list 4300 5700 7100 7300) (list 4300 5700 6100 7100) (list 4300 5900 5700 7300) (list 4300 5900 6900 7300) (list 4300 5900 6100 6900) (list 4300 4900 5700 7100) (list 4300 4900 6900 7100) (list 4300 6100 5700 7100) (list 4300 6100 6900 7100) (list 5500 4900 5700 7100) (list 5500 4900 6900 7100) (list 4300 4900 5900 6900) (list 4300 4900 7100 6900) (list 4300 6100 5900 6900) (list 4300 6100 7100 6900) (list 5500 4900 5900 6900) (list 5500 4900 7100 6900) (list 4500 5500 5900 7300) (list 4500 5500 7100 7300) (list 4500 6700 5900 7300) (list 4500 6700 7100 7300) (list 4500 5500 6100 7100) (list 4500 6700 6100 7100) (list 4500 5900 6700 7300) (list 4500 4900 6700 7100) (list 4500 6100 6700 7100) (list 5700 4900 6700 7100) (list 4700 5500 5700 7300) (list 4700 5500 6900 7300) (list 4700 6700 5700 7300) (list 4700 6700 6900 7300) (list 4700 5500 6100 6900) (list 4700 6700 6100 6900) (list 4700 5700 6700 7300) (list 4700 4900 6700 6900) (list 4700 6100 6700 6900) (list 4900 5500 5700 7100) (list 4900 5500 6900 7100) (list 4900 6700 5700 7100) (list 4900 6700 6900 7100) (list 4900 5500 5900 6900) (list 4900 5500 7100 6900) (list 4900 6700 5900 6900) (list 4900 6700 7100 6900) (list 4900 5700 6700 7100) (list 4900 5900 6700 6900) (list 4400 5700 5800 7100) (list 4400 5700 7000 7100) (list 4400 5700 5900 7000) (list 4400 5700 7100 7000) (list 4400 5800 5700 7100) (list 4400 5800 6900 7100) (list 4400 5800 5900 6900) (list 4400 5800 7100 6900) (list 4400 5900 5700 7000) (list 4400 5900 6900 7000) (list 4400 5900 5800 6900) (list 4400 5900 7000 6900) (list 4500 5600 5800 7100) (list 4500 5600 7000 7100) (list 4500 5600 5900 7000) (list 4500 5600 7100 7000) (list 4500 5800 6800 7100) (list 4500 5800 5900 6800) (list 4500 5800 7100 6800) (list 4500 5900 6800 7000) (list 4500 5900 5800 6800) (list 4500 5900 7000 6800) (list 4600 5600 5700 7100) (list 4600 5600 6900 7100) (list 4600 5600 5900 6900) (list 4600 5600 7100 6900) (list 4600 5700 6800 7100) (list 4600 5700 5900 6800) (list 4600 5700 7100 6800) (list 4600 5900 6800 6900) (list 4600 5900 5700 6800) (list 4600 5900 6900 6800) (list 4700 5600 5700 7000) (list 4700 5600 6900 7000) (list 4700 5600 5800 6900) (list 4700 5600 7000 6900) (list 4700 5700 6800 7000) (list 4700 5700 5800 6800) (list 4700 5700 7000 6800) (list 4700 5800 6800 6900) (list 4700 5800 5700 6800) (list 4700 5800 6900 6800) (list 4400 5800 6000 7400) (list 4400 5800 7200 7400) (list 4400 5800 6200 7200) (list 4400 4800 5800 7400) (list 4400 4800 7000 7400) (list 4400 6000 5800 7400) (list 4400 6000 7000 7400) (list 5600 4800 5800 7400) (list 5600 4800 7000 7400) (list 4400 4800 6200 7000) (list 4400 6000 6200 7000) (list 5600 4800 6200 7000) (list 4400 5000 5800 7200) (list 4400 5000 7000 7200) (list 4400 6200 5800 7200) (list 4400 6200 7000 7200) (list 5600 5000 5800 7200) (list 5600 5000 7000 7200) (list 4400 5000 6000 7000) (list 4400 5000 7200 7000) (list 4400 6200 6000 7000) (list 4400 6200 7200 7000) (list 5600 5000 6000 7000) (list 5600 5000 7200 7000) (list 4600 5600 6000 7400) (list 4600 5600 7200 7400) (list 4600 5600 6200 7200) (list 4600 4800 6800 7400) (list 4600 6000 6800 7400) (list 5800 4800 6800 7400) (list 4600 4800 6200 6800) (list 4600 6000 6200 6800) (list 5800 4800 6200 6800) (list 4600 5000 6800 7200) (list 4600 6200 6800 7200) (list 5800 5000 6800 7200) (list 4600 5000 6000 6800) (list 4600 5000 7200 6800) (list 4600 6200 6000 6800) (list 4600 6200 7200 6800) (list 5800 5000 6000 6800) (list 5800 5000 7200 6800) (list 4800 5600 5800 7400) (list 4800 5600 7000 7400) (list 4800 5600 6200 7000) (list 4800 5800 6800 7400) (list 4800 5800 6200 6800) (list 4800 5000 6800 7000) (list 4800 6200 6800 7000) (list 4800 5000 5800 6800) (list 4800 5000 7000 6800) (list 4800 6200 5800 6800) (list 4800 6200 7000 6800) (list 5000 5600 5800 7200) (list 5000 5600 7000 7200) (list 5000 5600 6000 7000) (list 5000 5600 7200 7000) (list 5000 5800 6800 7200) (list 5000 5800 6000 6800) (list 5000 5800 7200 6800) (list 5000 4800 6800 7000) (list 5000 6000 6800 7000) (list 5000 4800 5800 6800) (list 5000 4800 7000 6800) (list 5000 6000 5800 6800) (list 5000 6000 7000 6800) (list 4500 5800 5900 7200) (list 4500 5800 7100 7200) (list 4500 5800 6000 7100) (list 4500 5800 7200 7100) (list 4500 5900 5800 7200) (list 4500 5900 7000 7200) (list 4500 5900 6000 7000) (list 4500 5900 7200 7000) (list 4500 4800 5800 7100) (list 4500 4800 7000 7100) (list 4500 6000 5800 7100) (list 4500 6000 7000 7100) (list 5700 4800 5800 7100) (list 5700 4800 7000 7100) (list 4500 4800 5900 7000) (list 4500 4800 7100 7000) (list 4500 6000 5900 7000) (list 4500 6000 7100 7000) (list 5700 4800 5900 7000) (list 5700 4800 7100 7000) (list 4600 5700 5900 7200) (list 4600 5700 7100 7200) (list 4600 5700 6000 7100) (list 4600 5700 7200 7100) (list 4600 5900 5700 7200) (list 4600 5900 6900 7200) (list 4600 5900 6000 6900) (list 4600 5900 7200 6900) (list 4600 4800 5700 7100) (list 4600 4800 6900 7100) (list 4600 6000 5700 7100) (list 4600 6000 6900 7100) (list 5800 4800 5700 7100) (list 5800 4800 6900 7100) (list 4600 4800 5900 6900) (list 4600 4800 7100 6900) (list 4600 6000 5900 6900) (list 4600 6000 7100 6900) (list 5800 4800 5900 6900) (list 5800 4800 7100 6900) (list 4700 5700 5800 7200) (list 4700 5700 7000 7200) (list 4700 5700 6000 7000) (list 4700 5700 7200 7000) (list 4700 5800 5700 7200) (list 4700 5800 6900 7200) (list 4700 5800 6000 6900) (list 4700 5800 7200 6900) (list 4700 4800 5700 7000) (list 4700 4800 6900 7000) (list 4700 6000 5700 7000) (list 4700 6000 6900 7000) (list 4700 4800 5800 6900) (list 4700 4800 7000 6900) (list 4700 6000 5800 6900) (list 4700 6000 7000 6900) (list 4800 5700 5800 7100) (list 4800 5700 7000 7100) (list 4800 5700 5900 7000) (list 4800 5700 7100 7000) (list 4800 5800 5700 7100) (list 4800 5800 6900 7100) (list 4800 5800 5900 6900) (list 4800 5800 7100 6900) (list 4800 5900 5700 7000) (list 4800 5900 6900 7000) (list 4800 5900 5800 6900) (list 4800 5900 7000 6900) (list 4500 5900 6100 7500) (list 4500 5900 6300 7300) (list 4500 4900 5900 7500) (list 4500 4900 7100 7500) (list 4500 6100 5900 7500) (list 4500 6100 7100 7500) (list 5700 4900 5900 7500) (list 5700 4900 7100 7500) (list 4500 4900 6300 7100) (list 4500 6100 6300 7100) (list 5700 4900 6300 7100) (list 4500 5100 5900 7300) (list 4500 5100 7100 7300) (list 4500 6300 5900 7300) (list 4500 6300 7100 7300) (list 5700 5100 5900 7300) (list 5700 5100 7100 7300) (list 4500 5100 6100 7100) (list 4500 6300 6100 7100) (list 5700 5100 6100 7100) (list 4700 5700 6100 7500) (list 4700 5700 6300 7300) (list 4700 4900 5700 7500) (list 4700 4900 6900 7500) (list 4700 6100 5700 7500) (list 4700 6100 6900 7500) (list 4700 4900 6300 6900) (list 4700 6100 6300 6900) (list 4700 5100 5700 7300) (list 4700 5100 6900 7300) (list 4700 6300 5700 7300) (list 4700 6300 6900 7300) (list 4700 5100 6100 6900) (list 4700 6300 6100 6900) (list 4900 5700 5900 7500) (list 4900 5700 7100 7500) (list 4900 5700 6300 7100) (list 4900 5900 5700 7500) (list 4900 5900 6900 7500) (list 4900 5900 6300 6900) (list 4900 5100 5700 7100) (list 4900 5100 6900 7100) (list 4900 6300 5700 7100) (list 4900 6300 6900 7100) (list 4900 5100 5900 6900) (list 4900 5100 7100 6900) (list 4900 6300 5900 6900) (list 4900 6300 7100 6900) (list 5100 5700 5900 7300) (list 5100 5700 7100 7300) (list 5100 5700 6100 7100) (list 5100 5900 5700 7300) (list 5100 5900 6900 7300) (list 5100 5900 6100 6900) (list 5100 4900 5700 7100) (list 5100 4900 6900 7100) (list 5100 6100 5700 7100) (list 5100 6100 6900 7100) (list 5100 4900 5900 6900) (list 5100 4900 7100 6900) (list 5100 6100 5900 6900) (list 5100 6100 7100 6900) (list 4600 5900 6000 7300) (list 4600 5900 7200 7300) (list 4600 5900 6100 7200) (list 4600 4800 5900 7300) (list 4600 4800 7100 7300) (list 4600 6000 5900 7300) (list 4600 6000 7100 7300) (list 5800 4800 5900 7300) (list 5800 4800 7100 7300) (list 4600 4800 6100 7100) (list 4600 6000 6100 7100) (list 5800 4800 6100 7100) (list 4600 4900 5900 7200) (list 4600 4900 7100 7200) (list 4600 6100 5900 7200) (list 4600 6100 7100 7200) (list 5800 4900 5900 7200) (list 5800 4900 7100 7200) (list 4600 4900 6000 7100) (list 4600 4900 7200 7100) (list 4600 6100 6000 7100) (list 4600 6100 7200 7100) (list 5800 4900 6000 7100) (list 5800 4900 7200 7100) (list 4700 5800 6000 7300) (list 4700 5800 7200 7300) (list 4700 5800 6100 7200) (list 4700 4800 5800 7300) (list 4700 4800 7000 7300) (list 4700 6000 5800 7300) (list 4700 6000 7000 7300) (list 4700 4800 6100 7000) (list 4700 6000 6100 7000) (list 4700 4900 5800 7200) (list 4700 4900 7000 7200) (list 4700 6100 5800 7200) (list 4700 6100 7000 7200) (list 4700 4900 6000 7000) (list 4700 4900 7200 7000) (list 4700 6100 6000 7000) (list 4700 6100 7200 7000) (list 4800 5800 5900 7300) (list 4800 5800 7100 7300) (list 4800 5800 6100 7100) (list 4800 5900 5800 7300) (list 4800 5900 7000 7300) (list 4800 5900 6100 7000) (list 4800 4900 5800 7100) (list 4800 4900 7000 7100) (list 4800 6100 5800 7100) (list 4800 6100 7000 7100) (list 4800 4900 5900 7000) (list 4800 4900 7100 7000) (list 4800 6100 5900 7000) (list 4800 6100 7100 7000) (list 4900 5800 5900 7200) (list 4900 5800 7100 7200) (list 4900 5800 6000 7100) (list 4900 5800 7200 7100) (list 4900 5900 5800 7200) (list 4900 5900 7000 7200) (list 4900 5900 6000 7000) (list 4900 5900 7200 7000) (list 4900 4800 5800 7100) (list 4900 4800 7000 7100) (list 4900 6000 5800 7100) (list 4900 6000 7000 7100) (list 4900 4800 5900 7000) (list 4900 4800 7100 7000) (list 4900 6000 5900 7000) (list 4900 6000 7100 7000) (list 4600 4800 6200 7600) (list 4600 6000 6200 7600) (list 5800 4800 6200 7600) (list 4600 4800 6400 7400) (list 4600 6000 6400 7400) (list 5800 4800 6400 7400) (list 4600 5000 6000 7600) (list 4600 5000 7200 7600) (list 4600 6200 6000 7600) (list 4600 6200 7200 7600) (list 5800 5000 6000 7600) (list 5800 5000 7200 7600) (list 4600 5000 6400 7200) (list 4600 6200 6400 7200) (list 5800 5000 6400 7200) (list 4600 5200 6000 7400) (list 4600 5200 7200 7400) (list 4600 6400 6000 7400) (list 4600 6400 7200 7400) (list 5800 5200 6000 7400) (list 5800 5200 7200 7400) (list 4600 5200 6200 7200) (list 4600 6400 6200 7200) (list 5800 5200 6200 7200) (list 4800 5800 6200 7600) (list 4800 5800 6400 7400) (list 4800 5000 5800 7600) (list 4800 5000 7000 7600) (list 4800 6200 5800 7600) (list 4800 6200 7000 7600) (list 4800 5000 6400 7000) (list 4800 6200 6400 7000) (list 4800 5200 5800 7400) (list 4800 5200 7000 7400) (list 4800 6400 5800 7400) (list 4800 6400 7000 7400) (list 4800 5200 6200 7000) (list 4800 6400 6200 7000) (list 5000 5800 6000 7600) (list 5000 5800 7200 7600) (list 5000 5800 6400 7200) (list 5000 4800 5800 7600) (list 5000 4800 7000 7600) (list 5000 6000 5800 7600) (list 5000 6000 7000 7600) (list 5000 4800 6400 7000) (list 5000 6000 6400 7000) (list 5000 5200 5800 7200) (list 5000 5200 7000 7200) (list 5000 6400 5800 7200) (list 5000 6400 7000 7200) (list 5000 5200 6000 7000) (list 5000 5200 7200 7000) (list 5000 6400 6000 7000) (list 5000 6400 7200 7000) (list 5200 5800 6000 7400) (list 5200 5800 7200 7400) (list 5200 5800 6200 7200) (list 5200 4800 5800 7400) (list 5200 4800 7000 7400) (list 5200 6000 5800 7400) (list 5200 6000 7000 7400) (list 5200 4800 6200 7000) (list 5200 6000 6200 7000) (list 5200 5000 5800 7200) (list 5200 5000 7000 7200) (list 5200 6200 5800 7200) (list 5200 6200 7000 7200) (list 5200 5000 6000 7000) (list 5200 5000 7200 7000) (list 5200 6200 6000 7000) (list 5200 6200 7200 7000) (list 4700 4800 6100 7400) (list 4700 6000 6100 7400) (list 4700 4800 6200 7300) (list 4700 6000 6200 7300) (list 4700 4900 6000 7400) (list 4700 4900 7200 7400) (list 4700 6100 6000 7400) (list 4700 6100 7200 7400) (list 4700 4900 6200 7200) (list 4700 6100 6200 7200) (list 4700 5000 6000 7300) (list 4700 5000 7200 7300) (list 4700 6200 6000 7300) (list 4700 6200 7200 7300) (list 4700 5000 6100 7200) (list 4700 6200 6100 7200) (list 4800 5900 6100 7400) (list 4800 5900 6200 7300) (list 4800 4900 5900 7400) (list 4800 4900 7100 7400) (list 4800 6100 5900 7400) (list 4800 6100 7100 7400) (list 4800 4900 6200 7100) (list 4800 6100 6200 7100) (list 4800 5000 5900 7300) (list 4800 5000 7100 7300) (list 4800 6200 5900 7300) (list 4800 6200 7100 7300) (list 4800 5000 6100 7100) (list 4800 6200 6100 7100) (list 4900 5900 6000 7400) (list 4900 5900 7200 7400) (list 4900 5900 6200 7200) (list 4900 4800 5900 7400) (list 4900 4800 7100 7400) (list 4900 6000 5900 7400) (list 4900 6000 7100 7400) (list 4900 4800 6200 7100) (list 4900 6000 6200 7100) (list 4900 5000 5900 7200) (list 4900 5000 7100 7200) (list 4900 6200 5900 7200) (list 4900 6200 7100 7200) (list 4900 5000 6000 7100) (list 4900 5000 7200 7100) (list 4900 6200 6000 7100) (list 4900 6200 7200 7100) (list 5000 5900 6000 7300) (list 5000 5900 7200 7300) (list 5000 5900 6100 7200) (list 5000 4800 5900 7300) (list 5000 4800 7100 7300) (list 5000 6000 5900 7300) (list 5000 6000 7100 7300) (list 5000 4800 6100 7100) (list 5000 6000 6100 7100) (list 5000 4900 5900 7200) (list 5000 4900 7100 7200) (list 5000 6100 5900 7200) (list 5000 6100 7100 7200) (list 5000 4900 6000 7100) (list 5000 4900 7200 7100) (list 5000 6100 6000 7100) (list 5000 6100 7200 7100) (list 4700 4900 6300 7700) (list 4700 6100 6300 7700) (list 4700 4900 6500 7500) (list 4700 6100 6500 7500) (list 4700 5100 6100 7700) (list 4700 6300 6100 7700) (list 4700 5100 6500 7300) (list 4700 6300 6500 7300) (list 4700 5300 6100 7500) (list 4700 6500 6100 7500) (list 4700 5300 6300 7300) (list 4700 6500 6300 7300) (list 4900 5900 6300 7700) (list 4900 5900 6500 7500) (list 4900 5100 5900 7700) (list 4900 5100 7100 7700) (list 4900 6300 5900 7700) (list 4900 6300 7100 7700) (list 4900 5100 6500 7100) (list 4900 6300 6500 7100) (list 4900 5300 5900 7500) (list 4900 5300 7100 7500) (list 4900 6500 5900 7500) (list 4900 6500 7100 7500) (list 4900 5300 6300 7100) (list 4900 6500 6300 7100) (list 5100 5900 6100 7700) (list 5100 5900 6500 7300) (list 5100 4900 5900 7700) (list 5100 4900 7100 7700) (list 5100 6100 5900 7700) (list 5100 6100 7100 7700) (list 5100 4900 6500 7100) (list 5100 6100 6500 7100) (list 5100 5300 5900 7300) (list 5100 5300 7100 7300) (list 5100 6500 5900 7300) (list 5100 6500 7100 7300) (list 5100 5300 6100 7100) (list 5100 6500 6100 7100) (list 5300 5900 6100 7500) (list 5300 5900 6300 7300) (list 5300 4900 5900 7500) (list 5300 4900 7100 7500) (list 5300 6100 5900 7500) (list 5300 6100 7100 7500) (list 5300 4900 6300 7100) (list 5300 6100 6300 7100) (list 5300 5100 5900 7300) (list 5300 5100 7100 7300) (list 5300 6300 5900 7300) (list 5300 6300 7100 7300) (list 5300 5100 6100 7100) (list 5300 6300 6100 7100) (list 4800 4900 6200 7500) (list 4800 6100 6200 7500) (list 4800 4900 6300 7400) (list 4800 6100 6300 7400) (list 4800 5000 6100 7500) (list 4800 6200 6100 7500) (list 4800 5000 6300 7300) (list 4800 6200 6300 7300) (list 4800 5100 6100 7400) (list 4800 6300 6100 7400) (list 4800 5100 6200 7300) (list 4800 6300 6200 7300) (list 4900 4800 6200 7500) (list 4900 6000 6200 7500) (list 4900 4800 6300 7400) (list 4900 6000 6300 7400) (list 4900 5000 6000 7500) (list 4900 5000 7200 7500) (list 4900 6200 6000 7500) (list 4900 6200 7200 7500) (list 4900 5000 6300 7200) (list 4900 6200 6300 7200) (list 4900 5100 6000 7400) (list 4900 5100 7200 7400) (list 4900 6300 6000 7400) (list 4900 6300 7200 7400) (list 4900 5100 6200 7200) (list 4900 6300 6200 7200) (list 5000 4800 6100 7500) (list 5000 6000 6100 7500) (list 5000 4800 6300 7300) (list 5000 6000 6300 7300) (list 5000 4900 6000 7500) (list 5000 4900 7200 7500) (list 5000 6100 6000 7500) (list 5000 6100 7200 7500) (list 5000 4900 6300 7200) (list 5000 6100 6300 7200) (list 5000 5100 6000 7300) (list 5000 5100 7200 7300) (list 5000 6300 6000 7300) (list 5000 6300 7200 7300) (list 5000 5100 6100 7200) (list 5000 6300 6100 7200) (list 5100 4800 6100 7400) (list 5100 6000 6100 7400) (list 5100 4800 6200 7300) (list 5100 6000 6200 7300) (list 5100 4900 6000 7400) (list 5100 4900 7200 7400) (list 5100 6100 6000 7400) (list 5100 6100 7200 7400) (list 5100 4900 6200 7200) (list 5100 6100 6200 7200) (list 5100 5000 6000 7300) (list 5100 5000 7200 7300) (list 5100 6200 6000 7300) (list 5100 6200 7200 7300) (list 5100 5000 6100 7200) (list 5100 6200 6100 7200) (list 4800 5000 6400 7800) (list 4800 6200 6400 7800) (list 4800 5000 6600 7600) (list 4800 6200 6600 7600) (list 4800 5200 6200 7800) (list 4800 6400 6200 7800) (list 4800 5200 6600 7400) (list 4800 6400 6600 7400) (list 4800 5400 6200 7600) (list 4800 6600 6200 7600) (list 4800 5400 6400 7400) (list 4800 6600 6400 7400) (list 5000 4800 6400 7800) (list 5000 6000 6400 7800) (list 5000 4800 6600 7600) (list 5000 6000 6600 7600) (list 5000 5200 6000 7800) (list 5000 5200 7200 7800) (list 5000 6400 6000 7800) (list 5000 6400 7200 7800) (list 5000 5200 6600 7200) (list 5000 6400 6600 7200) (list 5000 5400 6000 7600) (list 5000 5400 7200 7600) (list 5000 6600 6000 7600) (list 5000 6600 7200 7600) (list 5000 5400 6400 7200) (list 5000 6600 6400 7200) (list 5200 4800 6200 7800) (list 5200 6000 6200 7800) (list 5200 4800 6600 7400) (list 5200 6000 6600 7400) (list 5200 5000 6000 7800) (list 5200 5000 7200 7800) (list 5200 6200 6000 7800) (list 5200 6200 7200 7800) (list 5200 5000 6600 7200) (list 5200 6200 6600 7200) (list 5200 5400 6000 7400) (list 5200 5400 7200 7400) (list 5200 6600 6000 7400) (list 5200 6600 7200 7400) (list 5200 5400 6200 7200) (list 5200 6600 6200 7200) (list 5400 4800 6200 7600) (list 5400 6000 6200 7600) (list 5400 4800 6400 7400) (list 5400 6000 6400 7400) (list 5400 5000 6000 7600) (list 5400 5000 7200 7600) (list 5400 6200 6000 7600) (list 5400 6200 7200 7600) (list 5400 5000 6400 7200) (list 5400 6200 6400 7200) (list 5400 5200 6000 7400) (list 5400 5200 7200 7400) (list 5400 6400 6000 7400) (list 5400 6400 7200 7400) (list 5400 5200 6200 7200) (list 5400 6400 6200 7200) (list 4900 5000 6300 7600) (list 4900 6200 6300 7600) (list 4900 5000 6400 7500) (list 4900 6200 6400 7500) (list 4900 5100 6200 7600) (list 4900 6300 6200 7600) (list 4900 5100 6400 7400) (list 4900 6300 6400 7400) (list 4900 5200 6200 7500) (list 4900 6400 6200 7500) (list 4900 5200 6300 7400) (list 4900 6400 6300 7400) (list 5000 4900 6300 7600) (list 5000 6100 6300 7600) (list 5000 4900 6400 7500) (list 5000 6100 6400 7500) (list 5000 5100 6100 7600) (list 5000 6300 6100 7600) (list 5000 5100 6400 7300) (list 5000 6300 6400 7300) (list 5000 5200 6100 7500) (list 5000 6400 6100 7500) (list 5000 5200 6300 7300) (list 5000 6400 6300 7300) (list 5100 4900 6200 7600) (list 5100 6100 6200 7600) (list 5100 4900 6400 7400) (list 5100 6100 6400 7400) (list 5100 5000 6100 7600) (list 5100 6200 6100 7600) (list 5100 5000 6400 7300) (list 5100 6200 6400 7300) (list 5100 5200 6100 7400) (list 5100 6400 6100 7400) (list 5100 5200 6200 7300) (list 5100 6400 6200 7300) (list 5200 4900 6200 7500) (list 5200 6100 6200 7500) (list 5200 4900 6300 7400) (list 5200 6100 6300 7400) (list 5200 5000 6100 7500) (list 5200 6200 6100 7500) (list 5200 5000 6300 7300) (list 5200 6200 6300 7300) (list 5200 5100 6100 7400) (list 5200 6300 6100 7400) (list 5200 5100 6200 7300) (list 5200 6300 6200 7300) (list 4900 5100 6500 7900) (list 4900 6300 6500 7900) (list 4900 5100 6700 7700) (list 4900 6300 6700 7700) (list 4900 5300 6300 7900) (list 4900 6500 6300 7900) (list 4900 5300 6700 7500) (list 4900 6500 6700 7500) (list 4900 5500 6300 7700) (list 4900 6700 6300 7700) (list 4900 5500 6500 7500) (list 4900 6700 6500 7500) (list 5100 4900 6500 7900) (list 5100 6100 6500 7900) (list 5100 4900 6700 7700) (list 5100 6100 6700 7700) (list 5100 5300 6100 7900) (list 5100 6500 6100 7900) (list 5100 5300 6700 7300) (list 5100 6500 6700 7300) (list 5100 5500 6100 7700) (list 5100 6700 6100 7700) (list 5100 5500 6500 7300) (list 5100 6700 6500 7300) (list 5300 4900 6300 7900) (list 5300 6100 6300 7900) (list 5300 4900 6700 7500) (list 5300 6100 6700 7500) (list 5300 5100 6100 7900) (list 5300 6300 6100 7900) (list 5300 5100 6700 7300) (list 5300 6300 6700 7300) (list 5300 5500 6100 7500) (list 5300 6700 6100 7500) (list 5300 5500 6300 7300) (list 5300 6700 6300 7300) (list 5500 4900 6300 7700) (list 5500 6100 6300 7700) (list 5500 4900 6500 7500) (list 5500 6100 6500 7500) (list 5500 5100 6100 7700) (list 5500 6300 6100 7700) (list 5500 5100 6500 7300) (list 5500 6300 6500 7300) (list 5500 5300 6100 7500) (list 5500 6500 6100 7500) (list 5500 5300 6300 7300) (list 5500 6500 6300 7300) (list 5000 5100 6400 7700) (list 5000 6300 6400 7700) (list 5000 5100 6500 7600) (list 5000 6300 6500 7600) (list 5000 5200 6300 7700) (list 5000 6400 6300 7700) (list 5000 5200 6500 7500) (list 5000 6400 6500 7500) (list 5000 5300 6300 7600) (list 5000 6500 6300 7600) (list 5000 5300 6400 7500) (list 5000 6500 6400 7500) (list 5100 5000 6400 7700) (list 5100 6200 6400 7700) (list 5100 5000 6500 7600) (list 5100 6200 6500 7600) (list 5100 5200 6200 7700) (list 5100 6400 6200 7700) (list 5100 5200 6500 7400) (list 5100 6400 6500 7400) (list 5100 5300 6200 7600) (list 5100 6500 6200 7600) (list 5100 5300 6400 7400) (list 5100 6500 6400 7400) (list 5200 5000 6300 7700) (list 5200 6200 6300 7700) (list 5200 5000 6500 7500) (list 5200 6200 6500 7500) (list 5200 5100 6200 7700) (list 5200 6300 6200 7700) (list 5200 5100 6500 7400) (list 5200 6300 6500 7400) (list 5200 5300 6200 7500) (list 5200 6500 6200 7500) (list 5200 5300 6300 7400) (list 5200 6500 6300 7400) (list 5300 5000 6300 7600) (list 5300 6200 6300 7600) (list 5300 5000 6400 7500) (list 5300 6200 6400 7500) (list 5300 5100 6200 7600) (list 5300 6300 6200 7600) (list 5300 5100 6400 7400) (list 5300 6300 6400 7400) (list 5300 5200 6200 7500) (list 5300 6400 6200 7500) (list 5300 5200 6300 7400) (list 5300 6400 6300 7400) (list 5000 5200 6600 6800) (list 5000 5200 6600 8000) (list 5000 6400 6600 6800) (list 5000 6400 6600 8000) (list 5000 5200 6800 7800) (list 5000 6400 6800 7800) (list 5000 5400 6400 6800) (list 5000 5400 6400 8000) (list 5000 6600 6400 6800) (list 5000 6600 6400 8000) (list 5000 5400 6800 7600) (list 5000 6600 6800 7600) (list 5000 5600 6400 7800) (list 5000 5600 6600 7600) (list 5200 5000 6600 6800) (list 5200 5000 6600 8000) (list 5200 6200 6600 6800) (list 5200 6200 6600 8000) (list 5200 5000 6800 7800) (list 5200 6200 6800 7800) (list 5200 5400 6200 6800) (list 5200 5400 6200 8000) (list 5200 6600 6200 6800) (list 5200 6600 6200 8000) (list 5200 5400 6800 7400) (list 5200 6600 6800 7400) (list 5200 5600 6200 7800) (list 5200 5600 6600 7400) (list 5400 5000 6400 6800) (list 5400 5000 6400 8000) (list 5400 6200 6400 6800) (list 5400 6200 6400 8000) (list 5400 5000 6800 7600) (list 5400 6200 6800 7600) (list 5400 5200 6200 6800) (list 5400 5200 6200 8000) (list 5400 6400 6200 6800) (list 5400 6400 6200 8000) (list 5400 5200 6800 7400) (list 5400 6400 6800 7400) (list 5400 5600 6200 7600) (list 5400 5600 6400 7400) (list 5600 5000 6400 7800) (list 5600 6200 6400 7800) (list 5600 5000 6600 7600) (list 5600 6200 6600 7600) (list 5600 5200 6200 7800) (list 5600 6400 6200 7800) (list 5600 5200 6600 7400) (list 5600 6400 6600 7400) (list 5600 5400 6200 7600) (list 5600 6600 6200 7600) (list 5600 5400 6400 7400) (list 5600 6600 6400 7400) (list 5100 5200 6500 7800) (list 5100 6400 6500 7800) (list 5100 5200 6600 7700) (list 5100 6400 6600 7700) (list 5100 5300 6400 7800) (list 5100 6500 6400 7800) (list 5100 5300 6600 7600) (list 5100 6500 6600 7600) (list 5100 5400 6400 7700) (list 5100 6600 6400 7700) (list 5100 5400 6500 7600) (list 5100 6600 6500 7600) (list 5200 5100 6500 7800) (list 5200 6300 6500 7800) (list 5200 5100 6600 7700) (list 5200 6300 6600 7700) (list 5200 5300 6300 7800) (list 5200 6500 6300 7800) (list 5200 5300 6600 7500) (list 5200 6500 6600 7500) (list 5200 5400 6300 7700) (list 5200 6600 6300 7700) (list 5200 5400 6500 7500) (list 5200 6600 6500 7500) (list 5300 5100 6400 7800) (list 5300 6300 6400 7800) (list 5300 5100 6600 7600) (list 5300 6300 6600 7600) (list 5300 5200 6300 7800) (list 5300 6400 6300 7800) (list 5300 5200 6600 7500) (list 5300 6400 6600 7500) (list 5300 5400 6300 7600) (list 5300 6600 6300 7600) (list 5300 5400 6400 7500) (list 5300 6600 6400 7500) (list 5400 5100 6400 7700) (list 5400 6300 6400 7700) (list 5400 5100 6500 7600) (list 5400 6300 6500 7600) (list 5400 5200 6300 7700) (list 5400 6400 6300 7700) (list 5400 5200 6500 7500) (list 5400 6400 6500 7500) (list 5400 5300 6300 7600) (list 5400 6500 6300 7600) (list 5400 5300 6400 7500) (list 5400 6500 6400 7500) (list 5100 5300 6700 6900) (list 5100 5300 6700 8100) (list 5100 6500 6700 6900) (list 5100 6500 6700 8100) (list 5100 5300 5700 7900) (list 5100 5300 6900 7900) (list 5100 6500 5700 7900) (list 5100 6500 6900 7900) (list 5100 5500 6500 6900) (list 5100 5500 6500 8100) (list 5100 6700 6500 6900) (list 5100 6700 6500 8100) (list 5100 5500 5700 7700) (list 5100 5500 6900 7700) (list 5100 6700 5700 7700) (list 5100 6700 6900 7700) (list 5100 5700 6500 7900) (list 5100 5700 6700 7700) (list 5300 5100 6700 6900) (list 5300 5100 6700 8100) (list 5300 6300 6700 6900) (list 5300 6300 6700 8100) (list 5300 5100 5700 7900) (list 5300 5100 6900 7900) (list 5300 6300 5700 7900) (list 5300 6300 6900 7900) (list 5300 5500 6300 6900) (list 5300 5500 6300 8100) (list 5300 6700 6300 6900) (list 5300 6700 6300 8100) (list 5300 5500 5700 7500) (list 5300 5500 6900 7500) (list 5300 6700 5700 7500) (list 5300 6700 6900 7500) (list 5300 5700 6300 7900) (list 5300 5700 6700 7500) (list 5500 5100 6500 6900) (list 5500 5100 6500 8100) (list 5500 6300 6500 6900) (list 5500 6300 6500 8100) (list 5500 5100 5700 7700) (list 5500 5100 6900 7700) (list 5500 6300 5700 7700) (list 5500 6300 6900 7700) (list 5500 5300 6300 6900) (list 5500 5300 6300 8100) (list 5500 6500 6300 6900) (list 5500 6500 6300 8100) (list 5500 5300 5700 7500) (list 5500 5300 6900 7500) (list 5500 6500 5700 7500) (list 5500 6500 6900 7500) (list 5500 5700 6300 7700) (list 5500 5700 6500 7500) (list 5700 5100 6500 7900) (list 5700 6300 6500 7900) (list 5700 5100 6700 7700) (list 5700 6300 6700 7700) (list 5700 5300 6300 7900) (list 5700 6500 6300 7900) (list 5700 5300 6700 7500) (list 5700 6500 6700 7500) (list 5700 5500 6300 7700) (list 5700 6700 6300 7700) (list 5700 5500 6500 7500) (list 5700 6700 6500 7500) (list 5200 5300 6600 7900) (list 5200 6500 6600 7900) (list 5200 5300 6700 7800) (list 5200 6500 6700 7800) (list 5200 5400 6500 7900) (list 5200 6600 6500 7900) (list 5200 5400 6700 7700) (list 5200 6600 6700 7700) (list 5200 5500 6500 7800) (list 5200 6700 6500 7800) (list 5200 5500 6600 7700) (list 5200 6700 6600 7700) (list 5300 5200 6600 7900) (list 5300 6400 6600 7900) (list 5300 5200 6700 7800) (list 5300 6400 6700 7800) (list 5300 5400 6400 7900) (list 5300 6600 6400 7900) (list 5300 5400 6700 7600) (list 5300 6600 6700 7600) (list 5300 5500 6400 7800) (list 5300 6700 6400 7800) (list 5300 5500 6600 7600) (list 5300 6700 6600 7600) (list 5400 5200 6500 7900) (list 5400 6400 6500 7900) (list 5400 5200 6700 7700) (list 5400 6400 6700 7700) (list 5400 5300 6400 7900) (list 5400 6500 6400 7900) (list 5400 5300 6700 7600) (list 5400 6500 6700 7600) (list 5400 5500 6400 7700) (list 5400 6700 6400 7700) (list 5400 5500 6500 7600) (list 5400 6700 6500 7600) (list 5500 5200 6500 7800) (list 5500 6400 6500 7800) (list 5500 5200 6600 7700) (list 5500 6400 6600 7700) (list 5500 5300 6400 7800) (list 5500 6500 6400 7800) (list 5500 5300 6600 7600) (list 5500 6500 6600 7600) (list 5500 5400 6400 7700) (list 5500 6600 6400 7700) (list 5500 5400 6500 7600) (list 5500 6600 6500 7600) (list 5200 5400 6800 7000) (list 5200 5400 6800 8200) (list 5200 6600 6800 7000) (list 5200 6600 6800 8200) (list 5200 5400 5800 6800) (list 5200 5400 5800 8000) (list 5200 5400 7000 6800) (list 5200 5400 7000 8000) (list 5200 6600 5800 6800) (list 5200 6600 5800 8000) (list 5200 6600 7000 6800) (list 5200 6600 7000 8000) (list 5200 5600 6600 7000) (list 5200 5600 6600 8200) (list 5200 5600 5800 7800) (list 5200 5600 7000 7800) (list 5200 5800 6600 6800) (list 5200 5800 6600 8000) (list 5200 5800 6800 7800) (list 5400 5200 6800 7000) (list 5400 5200 6800 8200) (list 5400 6400 6800 7000) (list 5400 6400 6800 8200) (list 5400 5200 5800 6800) (list 5400 5200 5800 8000) (list 5400 5200 7000 6800) (list 5400 5200 7000 8000) (list 5400 6400 5800 6800) (list 5400 6400 5800 8000) (list 5400 6400 7000 6800) (list 5400 6400 7000 8000) (list 5400 5600 6400 7000) (list 5400 5600 6400 8200) (list 5400 5600 5800 7600) (list 5400 5600 7000 7600) (list 5400 5800 6400 6800) (list 5400 5800 6400 8000) (list 5400 5800 6800 7600) (list 5600 5200 6600 7000) (list 5600 5200 6600 8200) (list 5600 6400 6600 7000) (list 5600 6400 6600 8200) (list 5600 5200 5800 7800) (list 5600 5200 7000 7800) (list 5600 6400 5800 7800) (list 5600 6400 7000 7800) (list 5600 5400 6400 7000) (list 5600 5400 6400 8200) (list 5600 6600 6400 7000) (list 5600 6600 6400 8200) (list 5600 5400 5800 7600) (list 5600 5400 7000 7600) (list 5600 6600 5800 7600) (list 5600 6600 7000 7600) (list 5600 5800 6400 7800) (list 5600 5800 6600 7600) (list 5800 5200 6600 6800) (list 5800 5200 6600 8000) (list 5800 6400 6600 6800) (list 5800 6400 6600 8000) (list 5800 5200 6800 7800) (list 5800 6400 6800 7800) (list 5800 5400 6400 6800) (list 5800 5400 6400 8000) (list 5800 6600 6400 6800) (list 5800 6600 6400 8000) (list 5800 5400 6800 7600) (list 5800 6600 6800 7600) (list 5800 5600 6400 7800) (list 5800 5600 6600 7600) (list 5300 5400 6700 6800) (list 5300 5400 6700 8000) (list 5300 6600 6700 6800) (list 5300 6600 6700 8000) (list 5300 5400 6800 7900) (list 5300 6600 6800 7900) (list 5300 5500 6600 6800) (list 5300 5500 6600 8000) (list 5300 6700 6600 6800) (list 5300 6700 6600 8000) (list 5300 5500 6800 7800) (list 5300 6700 6800 7800) (list 5300 5600 6600 7900) (list 5300 5600 6700 7800) (list 5400 5300 6700 6800) (list 5400 5300 6700 8000) (list 5400 6500 6700 6800) (list 5400 6500 6700 8000) (list 5400 5300 6800 7900) (list 5400 6500 6800 7900) (list 5400 5500 6500 6800) (list 5400 5500 6500 8000) (list 5400 6700 6500 6800) (list 5400 6700 6500 8000) (list 5400 5500 6800 7700) (list 5400 6700 6800 7700) (list 5400 5600 6500 7900) (list 5400 5600 6700 7700) (list 5500 5300 6600 6800) (list 5500 5300 6600 8000) (list 5500 6500 6600 6800) (list 5500 6500 6600 8000) (list 5500 5300 6800 7800) (list 5500 6500 6800 7800) (list 5500 5400 6500 6800) (list 5500 5400 6500 8000) (list 5500 6600 6500 6800) (list 5500 6600 6500 8000) (list 5500 5400 6800 7700) (list 5500 6600 6800 7700) (list 5500 5600 6500 7800) (list 5500 5600 6600 7700) (list 5600 5300 6600 7900) (list 5600 6500 6600 7900) (list 5600 5300 6700 7800) (list 5600 6500 6700 7800) (list 5600 5400 6500 7900) (list 5600 6600 6500 7900) (list 5600 5400 6700 7700) (list 5600 6600 6700 7700) (list 5600 5500 6500 7800) (list 5600 6700 6500 7800) (list 5600 5500 6600 7700) (list 5600 6700 6600 7700) (list 5300 5500 5700 7100) (list 5300 5500 5700 8300) (list 5300 5500 6900 7100) (list 5300 5500 6900 8300) (list 5300 6700 5700 7100) (list 5300 6700 5700 8300) (list 5300 6700 6900 7100) (list 5300 6700 6900 8300) (list 5300 5500 5900 6900) (list 5300 5500 5900 8100) (list 5300 5500 7100 6900) (list 5300 5500 7100 8100) (list 5300 6700 5900 6900) (list 5300 6700 5900 8100) (list 5300 6700 7100 6900) (list 5300 6700 7100 8100) (list 5300 5700 6700 7100) (list 5300 5700 6700 8300) (list 5300 5700 5900 7900) (list 5300 5700 7100 7900) (list 5300 5900 6700 6900) (list 5300 5900 6700 8100) (list 5300 5900 5700 7900) (list 5300 5900 6900 7900) (list 5500 5300 5700 7100) (list 5500 5300 5700 8300) (list 5500 5300 6900 7100) (list 5500 5300 6900 8300) (list 5500 6500 5700 7100) (list 5500 6500 5700 8300) (list 5500 6500 6900 7100) (list 5500 6500 6900 8300) (list 5500 5300 5900 6900) (list 5500 5300 5900 8100) (list 5500 5300 7100 6900) (list 5500 5300 7100 8100) (list 5500 6500 5900 6900) (list 5500 6500 5900 8100) (list 5500 6500 7100 6900) (list 5500 6500 7100 8100) (list 5500 5700 6500 7100) (list 5500 5700 6500 8300) (list 5500 5700 5900 7700) (list 5500 5700 7100 7700) (list 5500 5900 6500 6900) (list 5500 5900 6500 8100) (list 5500 5900 5700 7700) (list 5500 5900 6900 7700) (list 5700 5300 6700 7100) (list 5700 5300 6700 8300) (list 5700 6500 6700 7100) (list 5700 6500 6700 8300) (list 5700 5300 5900 7900) (list 5700 5300 7100 7900) (list 5700 6500 5900 7900) (list 5700 6500 7100 7900) (list 5700 5500 6500 7100) (list 5700 5500 6500 8300) (list 5700 6700 6500 7100) (list 5700 6700 6500 8300) (list 5700 5500 5900 7700) (list 5700 5500 7100 7700) (list 5700 6700 5900 7700) (list 5700 6700 7100 7700) (list 5700 5900 6500 7900) (list 5700 5900 6700 7700) (list 5400 5500 6800 6900) (list 5400 5500 6800 8100) (list 5400 6700 6800 6900) (list 5400 6700 6800 8100) (list 5400 5500 5700 6800) (list 5400 5500 5700 8000) (list 5400 5500 6900 6800) (list 5400 5500 6900 8000) (list 5400 6700 5700 6800) (list 5400 6700 5700 8000) (list 5400 6700 6900 6800) (list 5400 6700 6900 8000) (list 5400 5600 6700 6900) (list 5400 5600 6700 8100) (list 5400 5600 5700 7900) (list 5400 5600 6900 7900) (list 5400 5700 6700 6800) (list 5400 5700 6700 8000) (list 5400 5700 6800 7900) (list 5500 5400 6800 6900) (list 5500 5400 6800 8100) (list 5500 6600 6800 6900) (list 5500 6600 6800 8100) (list 5500 5400 5700 6800) (list 5500 5400 5700 8000) (list 5500 5400 6900 6800) (list 5500 5400 6900 8000) (list 5500 6600 5700 6800) (list 5500 6600 5700 8000) (list 5500 6600 6900 6800) (list 5500 6600 6900 8000) (list 5500 5600 6600 6900) (list 5500 5600 6600 8100) (list 5500 5600 5700 7800) (list 5500 5600 6900 7800) (list 5500 5700 6600 6800) (list 5500 5700 6600 8000) (list 5500 5700 6800 7800) (list 5600 5400 6700 6900) (list 5600 5400 6700 8100) (list 5600 6600 6700 6900) (list 5600 6600 6700 8100) (list 5600 5400 5700 7900) (list 5600 5400 6900 7900) (list 5600 6600 5700 7900) (list 5600 6600 6900 7900) (list 5600 5500 6600 6900) (list 5600 5500 6600 8100) (list 5600 6700 6600 6900) (list 5600 6700 6600 8100) (list 5600 5500 5700 7800) (list 5600 5500 6900 7800) (list 5600 6700 5700 7800) (list 5600 6700 6900 7800) (list 5600 5700 6600 7900) (list 5600 5700 6700 7800) (list 5700 5400 6700 6800) (list 5700 5400 6700 8000) (list 5700 6600 6700 6800) (list 5700 6600 6700 8000) (list 5700 5400 6800 7900) (list 5700 6600 6800 7900) (list 5700 5500 6600 6800) (list 5700 5500 6600 8000) (list 5700 6700 6600 6800) (list 5700 6700 6600 8000) (list 5700 5500 6800 7800) (list 5700 6700 6800 7800) (list 5700 5600 6600 7900) (list 5700 5600 6700 7800) (list 5400 5600 5800 7200) (list 5400 5600 5800 8400) (list 5400 5600 7000 7200) (list 5400 5600 7000 8400) (list 5400 5600 6000 7000) (list 5400 5600 6000 8200) (list 5400 5600 7200 7000) (list 5400 5600 7200 8200) (list 5400 5800 6800 7200) (list 5400 5800 6800 8400) (list 5400 5800 6000 6800) (list 5400 5800 6000 8000) (list 5400 5800 7200 6800) (list 5400 5800 7200 8000) (list 5400 6000 6800 7000) (list 5400 6000 6800 8200) (list 5400 6000 5800 6800) (list 5400 6000 5800 8000) (list 5400 6000 7000 6800) (list 5400 6000 7000 8000) (list 5600 5400 5800 7200) (list 5600 5400 5800 8400) (list 5600 5400 7000 7200) (list 5600 5400 7000 8400) (list 5600 6600 5800 7200) (list 5600 6600 5800 8400) (list 5600 6600 7000 7200) (list 5600 6600 7000 8400) (list 5600 5400 6000 7000) (list 5600 5400 6000 8200) (list 5600 5400 7200 7000) (list 5600 5400 7200 8200) (list 5600 6600 6000 7000) (list 5600 6600 6000 8200) (list 5600 6600 7200 7000) (list 5600 6600 7200 8200) (list 5600 5800 6600 7200) (list 5600 5800 6600 8400) (list 5600 5800 6000 7800) (list 5600 5800 7200 7800) (list 5600 6000 6600 7000) (list 5600 6000 6600 8200) (list 5600 6000 5800 7800) (list 5600 6000 7000 7800) (list 5800 5400 6800 7200) (list 5800 5400 6800 8400) (list 5800 6600 6800 7200) (list 5800 6600 6800 8400) (list 5800 5400 6000 6800) (list 5800 5400 6000 8000) (list 5800 5400 7200 6800) (list 5800 5400 7200 8000) (list 5800 6600 6000 6800) (list 5800 6600 6000 8000) (list 5800 6600 7200 6800) (list 5800 6600 7200 8000) (list 5800 5600 6600 7200) (list 5800 5600 6600 8400) (list 5800 5600 6000 7800) (list 5800 5600 7200 7800) (list 5800 6000 6600 6800) (list 5800 6000 6600 8000) (list 5800 6000 6800 7800) (list 5500 5600 5700 7000) (list 5500 5600 5700 8200) (list 5500 5600 6900 7000) (list 5500 5600 6900 8200) (list 5500 5600 5800 6900) (list 5500 5600 5800 8100) (list 5500 5600 7000 6900) (list 5500 5600 7000 8100) (list 5500 5700 6800 7000) (list 5500 5700 6800 8200) (list 5500 5700 5800 6800) (list 5500 5700 5800 8000) (list 5500 5700 7000 6800) (list 5500 5700 7000 8000) (list 5500 5800 6800 6900) (list 5500 5800 6800 8100) (list 5500 5800 5700 6800) (list 5500 5800 5700 8000) (list 5500 5800 6900 6800) (list 5500 5800 6900 8000) (list 5600 5500 5700 7000) (list 5600 5500 5700 8200) (list 5600 5500 6900 7000) (list 5600 5500 6900 8200) (list 5600 6700 5700 7000) (list 5600 6700 5700 8200) (list 5600 6700 6900 7000) (list 5600 6700 6900 8200) (list 5600 5500 5800 6900) (list 5600 5500 5800 8100) (list 5600 5500 7000 6900) (list 5600 5500 7000 8100) (list 5600 6700 5800 6900) (list 5600 6700 5800 8100) (list 5600 6700 7000 6900) (list 5600 6700 7000 8100) (list 5600 5700 6700 7000) (list 5600 5700 6700 8200) (list 5600 5700 5800 7900) (list 5600 5700 7000 7900) (list 5600 5800 6700 6900) (list 5600 5800 6700 8100) (list 5600 5800 5700 7900) (list 5600 5800 6900 7900) (list 5700 5500 6800 7000) (list 5700 5500 6800 8200) (list 5700 6700 6800 7000) (list 5700 6700 6800 8200) (list 5700 5500 5800 6800) (list 5700 5500 5800 8000) (list 5700 5500 7000 6800) (list 5700 5500 7000 8000) (list 5700 6700 5800 6800) (list 5700 6700 5800 8000) (list 5700 6700 7000 6800) (list 5700 6700 7000 8000) (list 5700 5600 6700 7000) (list 5700 5600 6700 8200) (list 5700 5600 5800 7900) (list 5700 5600 7000 7900) (list 5700 5800 6700 6800) (list 5700 5800 6700 8000) (list 5700 5800 6800 7900) (list 5800 5500 6800 6900) (list 5800 5500 6800 8100) (list 5800 6700 6800 6900) (list 5800 6700 6800 8100) (list 5800 5500 5700 6800) (list 5800 5500 5700 8000) (list 5800 5500 6900 6800) (list 5800 5500 6900 8000) (list 5800 6700 5700 6800) (list 5800 6700 5700 8000) (list 5800 6700 6900 6800) (list 5800 6700 6900 8000) (list 5800 5600 6700 6900) (list 5800 5600 6700 8100) (list 5800 5600 5700 7900) (list 5800 5600 6900 7900) (list 5800 5700 6700 6800) (list 5800 5700 6700 8000) (list 5800 5700 6800 7900) (list 5500 5700 5900 7300) (list 5500 5700 5900 8500) (list 5500 5700 7100 7300) (list 5500 5700 7100 8500) (list 5500 5700 6100 7100) (list 5500 5700 6100 8300) (list 5500 5900 5700 7300) (list 5500 5900 5700 8500) (list 5500 5900 6900 7300) (list 5500 5900 6900 8500) (list 5500 5900 6100 6900) (list 5500 5900 6100 8100) (list 5500 6100 5700 7100) (list 5500 6100 5700 8300) (list 5500 6100 6900 7100) (list 5500 6100 6900 8300) (list 5500 6100 5900 6900) (list 5500 6100 5900 8100) (list 5500 6100 7100 6900) (list 5500 6100 7100 8100) (list 5700 5500 5900 7300) (list 5700 5500 5900 8500) (list 5700 5500 7100 7300) (list 5700 5500 7100 8500) (list 5700 6700 5900 7300) (list 5700 6700 5900 8500) (list 5700 6700 7100 7300) (list 5700 6700 7100 8500) (list 5700 5500 6100 7100) (list 5700 5500 6100 8300) (list 5700 6700 6100 7100) (list 5700 6700 6100 8300) (list 5700 5900 6700 7300) (list 5700 5900 6700 8500) (list 5700 5900 6100 7900) (list 5700 6100 6700 7100) (list 5700 6100 6700 8300) (list 5700 6100 5900 7900) (list 5700 6100 7100 7900) (list 5600 5700 5800 7100) (list 5600 5700 5800 8300) (list 5600 5700 7000 7100) (list 5600 5700 7000 8300) (list 5600 5700 5900 7000) (list 5600 5700 5900 8200) (list 5600 5700 7100 7000) (list 5600 5700 7100 8200) (list 5600 5800 5700 7100) (list 5600 5800 5700 8300) (list 5600 5800 6900 7100) (list 5600 5800 6900 8300) (list 5600 5800 5900 6900) (list 5600 5800 5900 8100) (list 5600 5800 7100 6900) (list 5600 5800 7100 8100) (list 5600 5900 5700 7000) (list 5600 5900 5700 8200) (list 5600 5900 6900 7000) (list 5600 5900 6900 8200) (list 5600 5900 5800 6900) (list 5600 5900 5800 8100) (list 5600 5900 7000 6900) (list 5600 5900 7000 8100) (list 5700 5600 5800 7100) (list 5700 5600 5800 8300) (list 5700 5600 7000 7100) (list 5700 5600 7000 8300) (list 5700 5600 5900 7000) (list 5700 5600 5900 8200) (list 5700 5600 7100 7000) (list 5700 5600 7100 8200) (list 5700 5800 6800 7100) (list 5700 5800 6800 8300) (list 5700 5800 5900 6800) (list 5700 5800 5900 8000) (list 5700 5800 7100 6800) (list 5700 5800 7100 8000) (list 5700 5900 6800 7000) (list 5700 5900 6800 8200) (list 5700 5900 5800 6800) (list 5700 5900 5800 8000) (list 5700 5900 7000 6800) (list 5700 5900 7000 8000) (list 5800 5600 5700 7100) (list 5800 5600 5700 8300) (list 5800 5600 6900 7100) (list 5800 5600 6900 8300) (list 5800 5600 5900 6900) (list 5800 5600 5900 8100) (list 5800 5600 7100 6900) (list 5800 5600 7100 8100) (list 5800 5700 6800 7100) (list 5800 5700 6800 8300) (list 5800 5700 5900 6800) (list 5800 5700 5900 8000) (list 5800 5700 7100 6800) (list 5800 5700 7100 8000) (list 5800 5900 6800 6900) (list 5800 5900 6800 8100) (list 5800 5900 5700 6800) (list 5800 5900 5700 8000) (list 5800 5900 6900 6800) (list 5800 5900 6900 8000) (list 5600 5800 6000 7400) (list 5600 5800 7200 7400) (list 5600 5800 6200 7200) (list 5600 5800 6200 8400) (list 5600 6000 5800 7400) (list 5600 6000 7000 7400) (list 5600 6000 6200 7000) (list 5600 6000 6200 8200) (list 5600 6200 5800 7200) (list 5600 6200 5800 8400) (list 5600 6200 7000 7200) (list 5600 6200 7000 8400) (list 5600 6200 6000 7000) (list 5600 6200 6000 8200) (list 5600 6200 7200 7000) (list 5600 6200 7200 8200) (list 5800 5600 6000 7400) (list 5800 5600 7200 7400) (list 5800 5600 6200 7200) (list 5800 5600 6200 8400) (list 5800 6000 6800 7400) (list 5800 6000 6200 6800) (list 5800 6000 6200 8000) (list 5800 6200 6800 7200) (list 5800 6200 6800 8400) (list 5800 6200 6000 6800) (list 5800 6200 6000 8000) (list 5800 6200 7200 6800) (list 5800 6200 7200 8000) (list 5700 5800 5900 7200) (list 5700 5800 5900 8400) (list 5700 5800 7100 7200) (list 5700 5800 7100 8400) (list 5700 5800 6000 7100) (list 5700 5800 6000 8300) (list 5700 5800 7200 7100) (list 5700 5800 7200 8300) (list 5700 5900 5800 7200) (list 5700 5900 5800 8400) (list 5700 5900 7000 7200) (list 5700 5900 7000 8400) (list 5700 5900 6000 7000) (list 5700 5900 6000 8200) (list 5700 5900 7200 7000) (list 5700 5900 7200 8200) (list 5700 6000 5800 7100) (list 5700 6000 5800 8300) (list 5700 6000 7000 7100) (list 5700 6000 7000 8300) (list 5700 6000 5900 7000) (list 5700 6000 5900 8200) (list 5700 6000 7100 7000) (list 5700 6000 7100 8200) (list 5800 5700 5900 7200) (list 5800 5700 5900 8400) (list 5800 5700 7100 7200) (list 5800 5700 7100 8400) (list 5800 5700 6000 7100) (list 5800 5700 6000 8300) (list 5800 5700 7200 7100) (list 5800 5700 7200 8300) (list 5800 5900 5700 7200) (list 5800 5900 5700 8400) (list 5800 5900 6900 7200) (list 5800 5900 6900 8400) (list 5800 5900 6000 6900) (list 5800 5900 6000 8100) (list 5800 5900 7200 6900) (list 5800 5900 7200 8100) (list 5800 6000 5700 7100) (list 5800 6000 5700 8300) (list 5800 6000 6900 7100) (list 5800 6000 6900 8300) (list 5800 6000 5900 6900) (list 5800 6000 5900 8100) (list 5800 6000 7100 6900) (list 5800 6000 7100 8100) (list 5700 5900 6100 7500) (list 5700 5900 6300 7300) (list 5700 5900 6300 8500) (list 5700 6100 5900 7500) (list 5700 6100 7100 7500) (list 5700 6100 6300 7100) (list 5700 6100 6300 8300) (list 5700 6300 5900 7300) (list 5700 6300 5900 8500) (list 5700 6300 7100 7300) (list 5700 6300 7100 8500) (list 5700 6300 6100 7100) (list 5700 6300 6100 8300) (list 5800 5900 6000 7300) (list 5800 5900 6000 8500) (list 5800 5900 7200 7300) (list 5800 5900 7200 8500) (list 5800 5900 6100 7200) (list 5800 5900 6100 8400) (list 5800 6000 5900 7300) (list 5800 6000 5900 8500) (list 5800 6000 7100 7300) (list 5800 6000 7100 8500) (list 5800 6000 6100 7100) (list 5800 6000 6100 8300) (list 5800 6100 5900 7200) (list 5800 6100 5900 8400) (list 5800 6100 7100 7200) (list 5800 6100 7100 8400) (list 5800 6100 6000 7100) (list 5800 6100 6000 8300) (list 5800 6100 7200 7100) (list 5800 6100 7200 8300) (list 5800 6000 6200 7600) (list 5800 6000 6400 7400) (list 5800 6200 6000 7600) (list 5800 6200 7200 7600) (list 5800 6200 6400 7200) (list 5800 6200 6400 8400) (list 5800 6400 6000 7400) (list 5800 6400 7200 7400) (list 5800 6400 6200 7200) (list 5800 6400 6200 8400))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 180 384) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 14 87) (om-make-point 217 30) (list (list 0 100 200 300) (list 0 200 400 600)) "((0 100 200 300) (0 200 400 600))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 472 106) (om-make-point 133 30) (list 0 1200 2400 4800) "(0 1200 2400 4800)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 169 106) (om-make-point 90 30) (list 3600 5800) "(3600 5800)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 250 80) (om-make-point 90 30) (list 4800 6700) "(4800 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 331 106) (om-make-point 90 30) (list 5700 7200) "(5700 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 412 81) (om-make-point 90 30) (list 6800 8500) "(6800 8500)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (4 0 0 1 nil 0) (5 0 0 2 nil 0) (6 0 0 3 nil 0) (7 0 0 4 nil 0) (3 0 0 5 nil 0) (0 0 1 0 nil 0))) 7.02 nil "" (om-make-point 142 141) (om-make-point 902 527)) (quote nil) (om-make-point 43 114) nil (list (list (list 3600 5000 6300 8500) (list 3600 6200 6300 8500) (list 4800 5000 6300 8500) (list 4800 6200 6300 8500) (list 3600 5100 6200 8500) (list 3600 6300 6200 8500) (list 4800 5100 6200 8500) (list 4800 6300 6200 8500) (list 3700 5000 6300 8400) (list 3700 6200 6300 8400) (list 4900 5000 6300 8400) (list 4900 6200 6300 8400) (list 3700 5100 6200 8400) (list 3700 6300 6200 8400) (list 4900 5100 6200 8400) (list 4900 6300 6200 8400) (list 3800 4800 6300 8500) (list 3800 6000 6300 8500) (list 5000 4800 6300 8500) (list 5000 6000 6300 8500) (list 3800 4900 6300 8400) (list 3800 6100 6300 8400) (list 5000 4900 6300 8400) (list 5000 6100 6300 8400) (list 3800 5100 6000 8500) (list 3800 6300 6000 8500) (list 5000 5100 6000 8500) (list 5000 6300 6000 8500) (list 3800 5100 6100 8400) (list 3800 6300 6100 8400) (list 5000 5100 6100 8400) (list 5000 6300 6100 8400) (list 3900 4800 6200 8500) (list 3900 6000 6200 8500) (list 5100 4800 6200 8500) (list 5100 6000 6200 8500) (list 3900 4900 6200 8400) (list 3900 6100 6200 8400) (list 5100 4900 6200 8400) (list 5100 6100 6200 8400) (list 3900 5000 6000 8500) (list 3900 6200 6000 8500) (list 5100 5000 6000 8500) (list 5100 6200 6000 8500) (list 3900 5000 6100 8400) (list 3900 6200 6100 8400) (list 5100 5000 6100 8400) (list 5100 6200 6100 8400) (list 3800 5200 6600 8400) (list 3800 6400 6600 8400) (list 5000 5200 6600 8400) (list 5000 6400 6600 8400) (list 3800 5400 6400 8400) (list 3800 6600 6400 8400) (list 5000 5400 6400 8400) (list 5000 6600 6400 8400) (list 4000 5000 6600 8400) (list 4000 6200 6600 8400) (list 5200 5000 6600 8400) (list 5200 6200 6600 8400) (list 4000 5400 6200 8400) (list 4000 6600 6200 8400) (list 5200 5400 6200 8400) (list 5200 6600 6200 8400) (list 4200 5000 6400 8400) (list 4200 6200 6400 8400) (list 5400 5000 6400 8400) (list 5400 6200 6400 8400) (list 4200 5200 6200 8400) (list 4200 6400 6200 8400) (list 5400 5200 6200 8400) (list 5400 6400 6200 8400) (list 3800 5100 6400 8500) (list 3800 6300 6400 8500) (list 5000 5100 6400 8500) (list 5000 6300 6400 8500) (list 3800 5200 6300 8500) (list 3800 6400 6300 8500) (list 5000 5200 6300 8500) (list 5000 6400 6300 8500) (list 3900 5000 6400 8500) (list 3900 6200 6400 8500) (list 5100 5000 6400 8500) (list 5100 6200 6400 8500) (list 3900 5200 6200 8500) (list 3900 6400 6200 8500) (list 5100 5200 6200 8500) (list 5100 6400 6200 8500) (list 4000 5000 6300 8500) (list 4000 6200 6300 8500) (list 5200 5000 6300 8500) (list 5200 6200 6300 8500) (list 4000 5100 6200 8500) (list 4000 6300 6200 8500) (list 5200 5100 6200 8500) (list 5200 6300 6200 8500) (list 3900 5300 6700 8500) (list 3900 6500 6700 8500) (list 5100 5300 6700 8500) (list 5100 6500 6700 8500) (list 3900 5500 6500 8500) (list 3900 6700 6500 8500) (list 5100 5500 6500 8500) (list 5100 6700 6500 8500) (list 4100 5100 6700 8500) (list 4100 6300 6700 8500) (list 5300 5100 6700 8500) (list 5300 6300 6700 8500) (list 4100 5500 6300 8500) (list 4100 6700 6300 8500) (list 5300 5500 6300 8500) (list 5300 6700 6300 8500) (list 4300 5100 6500 8500) (list 4300 6300 6500 8500) (list 5500 5100 6500 8500) (list 5500 6300 6500 8500) (list 4300 5300 6300 8500) (list 4300 6500 6300 8500) (list 5500 5300 6300 8500) (list 5500 6500 6300 8500) (list 3800 5200 6600 6800) (list 3800 6400 6600 6800) (list 3800 5400 6400 6800) (list 3800 6600 6400 6800) (list 4000 5000 6600 6800) (list 4000 6200 6600 6800) (list 4000 5400 6200 6800) (list 4000 6600 6200 6800) (list 4200 5000 6400 6800) (list 4200 6200 6400 6800) (list 4200 5200 6200 6800) (list 4200 6400 6200 6800) (list 3900 5300 6700 6900) (list 3900 6500 6700 6900) (list 3900 5500 6500 6900) (list 3900 6700 6500 6900) (list 4100 5100 6700 6900) (list 4100 6300 6700 6900) (list 4100 5500 6300 6900) (list 4100 6700 6300 6900) (list 4300 5100 6500 6900) (list 4300 6300 6500 6900) (list 4300 5300 6300 6900) (list 4300 6500 6300 6900) (list 4000 5400 6800 7000) (list 4000 6600 6800 7000) (list 4000 5400 5800 6800) (list 4000 5400 7000 6800) (list 4000 6600 5800 6800) (list 4000 6600 7000 6800) (list 4000 5600 6600 7000) (list 4000 5800 6600 6800) (list 4200 5200 6800 7000) (list 4200 6400 6800 7000) (list 4200 5200 5800 6800) (list 4200 5200 7000 6800) (list 4200 6400 5800 6800) (list 4200 6400 7000 6800) (list 4200 5600 6400 7000) (list 4200 5800 6400 6800) (list 4400 5200 6600 7000) (list 4400 6400 6600 7000) (list 4400 5400 6400 7000) (list 4400 6600 6400 7000) (list 4600 5200 6600 6800) (list 4600 6400 6600 6800) (list 4600 5400 6400 6800) (list 4600 6600 6400 6800) (list 4100 5400 6700 6800) (list 4100 6600 6700 6800) (list 4100 5500 6600 6800) (list 4100 6700 6600 6800) (list 4200 5300 6700 6800) (list 4200 6500 6700 6800) (list 4200 5500 6500 6800) (list 4200 6700 6500 6800) (list 4300 5300 6600 6800) (list 4300 6500 6600 6800) (list 4300 5400 6500 6800) (list 4300 6600 6500 6800) (list 4100 5500 5700 7100) (list 4100 5500 6900 7100) (list 4100 6700 5700 7100) (list 4100 6700 6900 7100) (list 4100 5500 5900 6900) (list 4100 5500 7100 6900) (list 4100 6700 5900 6900) (list 4100 6700 7100 6900) (list 4100 5700 6700 7100) (list 4100 5900 6700 6900) (list 4300 5300 5700 7100) (list 4300 5300 6900 7100) (list 4300 6500 5700 7100) (list 4300 6500 6900 7100) (list 4300 5300 5900 6900) (list 4300 5300 7100 6900) (list 4300 6500 5900 6900) (list 4300 6500 7100 6900) (list 4300 5700 6500 7100) (list 4300 5900 6500 6900) (list 4500 5300 6700 7100) (list 4500 6500 6700 7100) (list 4500 5500 6500 7100) (list 4500 6700 6500 7100) (list 4700 5300 6700 6900) (list 4700 6500 6700 6900) (list 4700 5500 6500 6900) (list 4700 6700 6500 6900) (list 4200 5500 6800 6900) (list 4200 6700 6800 6900) (list 4200 5500 5700 6800) (list 4200 5500 6900 6800) (list 4200 6700 5700 6800) (list 4200 6700 6900 6800) (list 4200 5600 6700 6900) (list 4200 5700 6700 6800) (list 4300 5400 6800 6900) (list 4300 6600 6800 6900) (list 4300 5400 5700 6800) (list 4300 5400 6900 6800) (list 4300 6600 5700 6800) (list 4300 6600 6900 6800) (list 4300 5600 6600 6900) (list 4300 5700 6600 6800) (list 4400 5400 6700 6900) (list 4400 6600 6700 6900) (list 4400 5500 6600 6900) (list 4400 6700 6600 6900) (list 4500 5400 6700 6800) (list 4500 6600 6700 6800) (list 4500 5500 6600 6800) (list 4500 6700 6600 6800) (list 4200 5600 5800 7200) (list 4200 5600 7000 7200) (list 4200 5600 6000 7000) (list 4200 5600 7200 7000) (list 4200 5800 6800 7200) (list 4200 5800 6000 6800) (list 4200 5800 7200 6800) (list 4200 4800 6800 7000) (list 4200 6000 6800 7000) (list 5400 4800 6800 7000) (list 4200 4800 5800 6800) (list 4200 4800 7000 6800) (list 4200 6000 5800 6800) (list 4200 6000 7000 6800) (list 5400 4800 5800 6800) (list 5400 4800 7000 6800) (list 4400 5400 5800 7200) (list 4400 5400 7000 7200) (list 4400 6600 5800 7200) (list 4400 6600 7000 7200) (list 4400 5400 6000 7000) (list 4400 5400 7200 7000) (list 4400 6600 6000 7000) (list 4400 6600 7200 7000) (list 4400 5800 6600 7200) (list 4400 4800 6600 7000) (list 4400 6000 6600 7000) (list 5600 4800 6600 7000) (list 4600 5400 6800 7200) (list 4600 6600 6800 7200) (list 4600 5400 6000 6800) (list 4600 5400 7200 6800) (list 4600 6600 6000 6800) (list 4600 6600 7200 6800) (list 4600 5600 6600 7200) (list 4600 4800 6600 6800) (list 4600 6000 6600 6800) (list 5800 4800 6600 6800) (list 4800 5400 6800 7000) (list 4800 6600 6800 7000) (list 4800 5400 5800 6800) (list 4800 5400 7000 6800) (list 4800 6600 5800 6800) (list 4800 6600 7000 6800) (list 4800 5600 6600 7000) (list 4800 5800 6600 6800) (list 4300 5600 5700 7000) (list 4300 5600 6900 7000) (list 4300 5600 5800 6900) (list 4300 5600 7000 6900) (list 4300 5700 6800 7000) (list 4300 5700 5800 6800) (list 4300 5700 7000 6800) (list 4300 5800 6800 6900) (list 4300 5800 5700 6800) (list 4300 5800 6900 6800) (list 4400 5500 5700 7000) (list 4400 5500 6900 7000) (list 4400 6700 5700 7000) (list 4400 6700 6900 7000) (list 4400 5500 5800 6900) (list 4400 5500 7000 6900) (list 4400 6700 5800 6900) (list 4400 6700 7000 6900) (list 4400 5700 6700 7000) (list 4400 5800 6700 6900) (list 4500 5500 6800 7000) (list 4500 6700 6800 7000) (list 4500 5500 5800 6800) (list 4500 5500 7000 6800) (list 4500 6700 5800 6800) (list 4500 6700 7000 6800) (list 4500 5600 6700 7000) (list 4500 5800 6700 6800) (list 4600 5500 6800 6900) (list 4600 6700 6800 6900) (list 4600 5500 5700 6800) (list 4600 5500 6900 6800) (list 4600 6700 5700 6800) (list 4600 6700 6900 6800) (list 4600 5600 6700 6900) (list 4600 5700 6700 6800) (list 4300 5700 5900 7300) (list 4300 5700 7100 7300) (list 4300 5700 6100 7100) (list 4300 5900 5700 7300) (list 4300 5900 6900 7300) (list 4300 5900 6100 6900) (list 4300 4900 5700 7100) (list 4300 4900 6900 7100) (list 4300 6100 5700 7100) (list 4300 6100 6900 7100) (list 5500 4900 5700 7100) (list 5500 4900 6900 7100) (list 4300 4900 5900 6900) (list 4300 4900 7100 6900) (list 4300 6100 5900 6900) (list 4300 6100 7100 6900) (list 5500 4900 5900 6900) (list 5500 4900 7100 6900) (list 4500 5500 5900 7300) (list 4500 5500 7100 7300) (list 4500 6700 5900 7300) (list 4500 6700 7100 7300) (list 4500 5500 6100 7100) (list 4500 6700 6100 7100) (list 4500 5900 6700 7300) (list 4500 4900 6700 7100) (list 4500 6100 6700 7100) (list 5700 4900 6700 7100) (list 4700 5500 5700 7300) (list 4700 5500 6900 7300) (list 4700 6700 5700 7300) (list 4700 6700 6900 7300) (list 4700 5500 6100 6900) (list 4700 6700 6100 6900) (list 4700 5700 6700 7300) (list 4700 4900 6700 6900) (list 4700 6100 6700 6900) (list 4900 5500 5700 7100) (list 4900 5500 6900 7100) (list 4900 6700 5700 7100) (list 4900 6700 6900 7100) (list 4900 5500 5900 6900) (list 4900 5500 7100 6900) (list 4900 6700 5900 6900) (list 4900 6700 7100 6900) (list 4900 5700 6700 7100) (list 4900 5900 6700 6900) (list 4400 5700 5800 7100) (list 4400 5700 7000 7100) (list 4400 5700 5900 7000) (list 4400 5700 7100 7000) (list 4400 5800 5700 7100) (list 4400 5800 6900 7100) (list 4400 5800 5900 6900) (list 4400 5800 7100 6900) (list 4400 5900 5700 7000) (list 4400 5900 6900 7000) (list 4400 5900 5800 6900) (list 4400 5900 7000 6900) (list 4500 5600 5800 7100) (list 4500 5600 7000 7100) (list 4500 5600 5900 7000) (list 4500 5600 7100 7000) (list 4500 5800 6800 7100) (list 4500 5800 5900 6800) (list 4500 5800 7100 6800) (list 4500 5900 6800 7000) (list 4500 5900 5800 6800) (list 4500 5900 7000 6800) (list 4600 5600 5700 7100) (list 4600 5600 6900 7100) (list 4600 5600 5900 6900) (list 4600 5600 7100 6900) (list 4600 5700 6800 7100) (list 4600 5700 5900 6800) (list 4600 5700 7100 6800) (list 4600 5900 6800 6900) (list 4600 5900 5700 6800) (list 4600 5900 6900 6800) (list 4700 5600 5700 7000) (list 4700 5600 6900 7000) (list 4700 5600 5800 6900) (list 4700 5600 7000 6900) (list 4700 5700 6800 7000) (list 4700 5700 5800 6800) (list 4700 5700 7000 6800) (list 4700 5800 6800 6900) (list 4700 5800 5700 6800) (list 4700 5800 6900 6800) (list 4400 5800 6000 7400) (list 4400 5800 7200 7400) (list 4400 5800 6200 7200) (list 4400 4800 5800 7400) (list 4400 4800 7000 7400) (list 4400 6000 5800 7400) (list 4400 6000 7000 7400) (list 5600 4800 5800 7400) (list 5600 4800 7000 7400) (list 4400 4800 6200 7000) (list 4400 6000 6200 7000) (list 5600 4800 6200 7000) (list 4400 5000 5800 7200) (list 4400 5000 7000 7200) (list 4400 6200 5800 7200) (list 4400 6200 7000 7200) (list 5600 5000 5800 7200) (list 5600 5000 7000 7200) (list 4400 5000 6000 7000) (list 4400 5000 7200 7000) (list 4400 6200 6000 7000) (list 4400 6200 7200 7000) (list 5600 5000 6000 7000) (list 5600 5000 7200 7000) (list 4600 5600 6000 7400) (list 4600 5600 7200 7400) (list 4600 5600 6200 7200) (list 4600 4800 6800 7400) (list 4600 6000 6800 7400) (list 5800 4800 6800 7400) (list 4600 4800 6200 6800) (list 4600 6000 6200 6800) (list 5800 4800 6200 6800) (list 4600 5000 6800 7200) (list 4600 6200 6800 7200) (list 5800 5000 6800 7200) (list 4600 5000 6000 6800) (list 4600 5000 7200 6800) (list 4600 6200 6000 6800) (list 4600 6200 7200 6800) (list 5800 5000 6000 6800) (list 5800 5000 7200 6800) (list 4800 5600 5800 7400) (list 4800 5600 7000 7400) (list 4800 5600 6200 7000) (list 4800 5800 6800 7400) (list 4800 5800 6200 6800) (list 4800 5000 6800 7000) (list 4800 6200 6800 7000) (list 4800 5000 5800 6800) (list 4800 5000 7000 6800) (list 4800 6200 5800 6800) (list 4800 6200 7000 6800) (list 5000 5600 5800 7200) (list 5000 5600 7000 7200) (list 5000 5600 6000 7000) (list 5000 5600 7200 7000) (list 5000 5800 6800 7200) (list 5000 5800 6000 6800) (list 5000 5800 7200 6800) (list 5000 4800 6800 7000) (list 5000 6000 6800 7000) (list 5000 4800 5800 6800) (list 5000 4800 7000 6800) (list 5000 6000 5800 6800) (list 5000 6000 7000 6800) (list 4500 5800 5900 7200) (list 4500 5800 7100 7200) (list 4500 5800 6000 7100) (list 4500 5800 7200 7100) (list 4500 5900 5800 7200) (list 4500 5900 7000 7200) (list 4500 5900 6000 7000) (list 4500 5900 7200 7000) (list 4500 4800 5800 7100) (list 4500 4800 7000 7100) (list 4500 6000 5800 7100) (list 4500 6000 7000 7100) (list 5700 4800 5800 7100) (list 5700 4800 7000 7100) (list 4500 4800 5900 7000) (list 4500 4800 7100 7000) (list 4500 6000 5900 7000) (list 4500 6000 7100 7000) (list 5700 4800 5900 7000) (list 5700 4800 7100 7000) (list 4600 5700 5900 7200) (list 4600 5700 7100 7200) (list 4600 5700 6000 7100) (list 4600 5700 7200 7100) (list 4600 5900 5700 7200) (list 4600 5900 6900 7200) (list 4600 5900 6000 6900) (list 4600 5900 7200 6900) (list 4600 4800 5700 7100) (list 4600 4800 6900 7100) (list 4600 6000 5700 7100) (list 4600 6000 6900 7100) (list 5800 4800 5700 7100) (list 5800 4800 6900 7100) (list 4600 4800 5900 6900) (list 4600 4800 7100 6900) (list 4600 6000 5900 6900) (list 4600 6000 7100 6900) (list 5800 4800 5900 6900) (list 5800 4800 7100 6900) (list 4700 5700 5800 7200) (list 4700 5700 7000 7200) (list 4700 5700 6000 7000) (list 4700 5700 7200 7000) (list 4700 5800 5700 7200) (list 4700 5800 6900 7200) (list 4700 5800 6000 6900) (list 4700 5800 7200 6900) (list 4700 4800 5700 7000) (list 4700 4800 6900 7000) (list 4700 6000 5700 7000) (list 4700 6000 6900 7000) (list 4700 4800 5800 6900) (list 4700 4800 7000 6900) (list 4700 6000 5800 6900) (list 4700 6000 7000 6900) (list 4800 5700 5800 7100) (list 4800 5700 7000 7100) (list 4800 5700 5900 7000) (list 4800 5700 7100 7000) (list 4800 5800 5700 7100) (list 4800 5800 6900 7100) (list 4800 5800 5900 6900) (list 4800 5800 7100 6900) (list 4800 5900 5700 7000) (list 4800 5900 6900 7000) (list 4800 5900 5800 6900) (list 4800 5900 7000 6900) (list 4500 5900 6100 7500) (list 4500 5900 6300 7300) (list 4500 4900 5900 7500) (list 4500 4900 7100 7500) (list 4500 6100 5900 7500) (list 4500 6100 7100 7500) (list 5700 4900 5900 7500) (list 5700 4900 7100 7500) (list 4500 4900 6300 7100) (list 4500 6100 6300 7100) (list 5700 4900 6300 7100) (list 4500 5100 5900 7300) (list 4500 5100 7100 7300) (list 4500 6300 5900 7300) (list 4500 6300 7100 7300) (list 5700 5100 5900 7300) (list 5700 5100 7100 7300) (list 4500 5100 6100 7100) (list 4500 6300 6100 7100) (list 5700 5100 6100 7100) (list 4700 5700 6100 7500) (list 4700 5700 6300 7300) (list 4700 4900 5700 7500) (list 4700 4900 6900 7500) (list 4700 6100 5700 7500) (list 4700 6100 6900 7500) (list 4700 4900 6300 6900) (list 4700 6100 6300 6900) (list 4700 5100 5700 7300) (list 4700 5100 6900 7300) (list 4700 6300 5700 7300) (list 4700 6300 6900 7300) (list 4700 5100 6100 6900) (list 4700 6300 6100 6900) (list 4900 5700 5900 7500) (list 4900 5700 7100 7500) (list 4900 5700 6300 7100) (list 4900 5900 5700 7500) (list 4900 5900 6900 7500) (list 4900 5900 6300 6900) (list 4900 5100 5700 7100) (list 4900 5100 6900 7100) (list 4900 6300 5700 7100) (list 4900 6300 6900 7100) (list 4900 5100 5900 6900) (list 4900 5100 7100 6900) (list 4900 6300 5900 6900) (list 4900 6300 7100 6900) (list 5100 5700 5900 7300) (list 5100 5700 7100 7300) (list 5100 5700 6100 7100) (list 5100 5900 5700 7300) (list 5100 5900 6900 7300) (list 5100 5900 6100 6900) (list 5100 4900 5700 7100) (list 5100 4900 6900 7100) (list 5100 6100 5700 7100) (list 5100 6100 6900 7100) (list 5100 4900 5900 6900) (list 5100 4900 7100 6900) (list 5100 6100 5900 6900) (list 5100 6100 7100 6900) (list 4600 5900 6000 7300) (list 4600 5900 7200 7300) (list 4600 5900 6100 7200) (list 4600 4800 5900 7300) (list 4600 4800 7100 7300) (list 4600 6000 5900 7300) (list 4600 6000 7100 7300) (list 5800 4800 5900 7300) (list 5800 4800 7100 7300) (list 4600 4800 6100 7100) (list 4600 6000 6100 7100) (list 5800 4800 6100 7100) (list 4600 4900 5900 7200) (list 4600 4900 7100 7200) (list 4600 6100 5900 7200) (list 4600 6100 7100 7200) (list 5800 4900 5900 7200) (list 5800 4900 7100 7200) (list 4600 4900 6000 7100) (list 4600 4900 7200 7100) (list 4600 6100 6000 7100) (list 4600 6100 7200 7100) (list 5800 4900 6000 7100) (list 5800 4900 7200 7100) (list 4700 5800 6000 7300) (list 4700 5800 7200 7300) (list 4700 5800 6100 7200) (list 4700 4800 5800 7300) (list 4700 4800 7000 7300) (list 4700 6000 5800 7300) (list 4700 6000 7000 7300) (list 4700 4800 6100 7000) (list 4700 6000 6100 7000) (list 4700 4900 5800 7200) (list 4700 4900 7000 7200) (list 4700 6100 5800 7200) (list 4700 6100 7000 7200) (list 4700 4900 6000 7000) (list 4700 4900 7200 7000) (list 4700 6100 6000 7000) (list 4700 6100 7200 7000) (list 4800 5800 5900 7300) (list 4800 5800 7100 7300) (list 4800 5800 6100 7100) (list 4800 5900 5800 7300) (list 4800 5900 7000 7300) (list 4800 5900 6100 7000) (list 4800 4900 5800 7100) (list 4800 4900 7000 7100) (list 4800 6100 5800 7100) (list 4800 6100 7000 7100) (list 4800 4900 5900 7000) (list 4800 4900 7100 7000) (list 4800 6100 5900 7000) (list 4800 6100 7100 7000) (list 4900 5800 5900 7200) (list 4900 5800 7100 7200) (list 4900 5800 6000 7100) (list 4900 5800 7200 7100) (list 4900 5900 5800 7200) (list 4900 5900 7000 7200) (list 4900 5900 6000 7000) (list 4900 5900 7200 7000) (list 4900 4800 5800 7100) (list 4900 4800 7000 7100) (list 4900 6000 5800 7100) (list 4900 6000 7000 7100) (list 4900 4800 5900 7000) (list 4900 4800 7100 7000) (list 4900 6000 5900 7000) (list 4900 6000 7100 7000) (list 4600 4800 6200 7600) (list 4600 6000 6200 7600) (list 5800 4800 6200 7600) (list 4600 4800 6400 7400) (list 4600 6000 6400 7400) (list 5800 4800 6400 7400) (list 4600 5000 6000 7600) (list 4600 5000 7200 7600) (list 4600 6200 6000 7600) (list 4600 6200 7200 7600) (list 5800 5000 6000 7600) (list 5800 5000 7200 7600) (list 4600 5000 6400 7200) (list 4600 6200 6400 7200) (list 5800 5000 6400 7200) (list 4600 5200 6000 7400) (list 4600 5200 7200 7400) (list 4600 6400 6000 7400) (list 4600 6400 7200 7400) (list 5800 5200 6000 7400) (list 5800 5200 7200 7400) (list 4600 5200 6200 7200) (list 4600 6400 6200 7200) (list 5800 5200 6200 7200) (list 4800 5800 6200 7600) (list 4800 5800 6400 7400) (list 4800 5000 5800 7600) (list 4800 5000 7000 7600) (list 4800 6200 5800 7600) (list 4800 6200 7000 7600) (list 4800 5000 6400 7000) (list 4800 6200 6400 7000) (list 4800 5200 5800 7400) (list 4800 5200 7000 7400) (list 4800 6400 5800 7400) (list 4800 6400 7000 7400) (list 4800 5200 6200 7000) (list 4800 6400 6200 7000) (list 5000 5800 6000 7600) (list 5000 5800 7200 7600) (list 5000 5800 6400 7200) (list 5000 4800 5800 7600) (list 5000 4800 7000 7600) (list 5000 6000 5800 7600) (list 5000 6000 7000 7600) (list 5000 4800 6400 7000) (list 5000 6000 6400 7000) (list 5000 5200 5800 7200) (list 5000 5200 7000 7200) (list 5000 6400 5800 7200) (list 5000 6400 7000 7200) (list 5000 5200 6000 7000) (list 5000 5200 7200 7000) (list 5000 6400 6000 7000) (list 5000 6400 7200 7000) (list 5200 5800 6000 7400) (list 5200 5800 7200 7400) (list 5200 5800 6200 7200) (list 5200 4800 5800 7400) (list 5200 4800 7000 7400) (list 5200 6000 5800 7400) (list 5200 6000 7000 7400) (list 5200 4800 6200 7000) (list 5200 6000 6200 7000) (list 5200 5000 5800 7200) (list 5200 5000 7000 7200) (list 5200 6200 5800 7200) (list 5200 6200 7000 7200) (list 5200 5000 6000 7000) (list 5200 5000 7200 7000) (list 5200 6200 6000 7000) (list 5200 6200 7200 7000) (list 4700 4800 6100 7400) (list 4700 6000 6100 7400) (list 4700 4800 6200 7300) (list 4700 6000 6200 7300) (list 4700 4900 6000 7400) (list 4700 4900 7200 7400) (list 4700 6100 6000 7400) (list 4700 6100 7200 7400) (list 4700 4900 6200 7200) (list 4700 6100 6200 7200) (list 4700 5000 6000 7300) (list 4700 5000 7200 7300) (list 4700 6200 6000 7300) (list 4700 6200 7200 7300) (list 4700 5000 6100 7200) (list 4700 6200 6100 7200) (list 4800 5900 6100 7400) (list 4800 5900 6200 7300) (list 4800 4900 5900 7400) (list 4800 4900 7100 7400) (list 4800 6100 5900 7400) (list 4800 6100 7100 7400) (list 4800 4900 6200 7100) (list 4800 6100 6200 7100) (list 4800 5000 5900 7300) (list 4800 5000 7100 7300) (list 4800 6200 5900 7300) (list 4800 6200 7100 7300) (list 4800 5000 6100 7100) (list 4800 6200 6100 7100) (list 4900 5900 6000 7400) (list 4900 5900 7200 7400) (list 4900 5900 6200 7200) (list 4900 4800 5900 7400) (list 4900 4800 7100 7400) (list 4900 6000 5900 7400) (list 4900 6000 7100 7400) (list 4900 4800 6200 7100) (list 4900 6000 6200 7100) (list 4900 5000 5900 7200) (list 4900 5000 7100 7200) (list 4900 6200 5900 7200) (list 4900 6200 7100 7200) (list 4900 5000 6000 7100) (list 4900 5000 7200 7100) (list 4900 6200 6000 7100) (list 4900 6200 7200 7100) (list 5000 5900 6000 7300) (list 5000 5900 7200 7300) (list 5000 5900 6100 7200) (list 5000 4800 5900 7300) (list 5000 4800 7100 7300) (list 5000 6000 5900 7300) (list 5000 6000 7100 7300) (list 5000 4800 6100 7100) (list 5000 6000 6100 7100) (list 5000 4900 5900 7200) (list 5000 4900 7100 7200) (list 5000 6100 5900 7200) (list 5000 6100 7100 7200) (list 5000 4900 6000 7100) (list 5000 4900 7200 7100) (list 5000 6100 6000 7100) (list 5000 6100 7200 7100) (list 4700 4900 6300 7700) (list 4700 6100 6300 7700) (list 4700 4900 6500 7500) (list 4700 6100 6500 7500) (list 4700 5100 6100 7700) (list 4700 6300 6100 7700) (list 4700 5100 6500 7300) (list 4700 6300 6500 7300) (list 4700 5300 6100 7500) (list 4700 6500 6100 7500) (list 4700 5300 6300 7300) (list 4700 6500 6300 7300) (list 4900 5900 6300 7700) (list 4900 5900 6500 7500) (list 4900 5100 5900 7700) (list 4900 5100 7100 7700) (list 4900 6300 5900 7700) (list 4900 6300 7100 7700) (list 4900 5100 6500 7100) (list 4900 6300 6500 7100) (list 4900 5300 5900 7500) (list 4900 5300 7100 7500) (list 4900 6500 5900 7500) (list 4900 6500 7100 7500) (list 4900 5300 6300 7100) (list 4900 6500 6300 7100) (list 5100 5900 6100 7700) (list 5100 5900 6500 7300) (list 5100 4900 5900 7700) (list 5100 4900 7100 7700) (list 5100 6100 5900 7700) (list 5100 6100 7100 7700) (list 5100 4900 6500 7100) (list 5100 6100 6500 7100) (list 5100 5300 5900 7300) (list 5100 5300 7100 7300) (list 5100 6500 5900 7300) (list 5100 6500 7100 7300) (list 5100 5300 6100 7100) (list 5100 6500 6100 7100) (list 5300 5900 6100 7500) (list 5300 5900 6300 7300) (list 5300 4900 5900 7500) (list 5300 4900 7100 7500) (list 5300 6100 5900 7500) (list 5300 6100 7100 7500) (list 5300 4900 6300 7100) (list 5300 6100 6300 7100) (list 5300 5100 5900 7300) (list 5300 5100 7100 7300) (list 5300 6300 5900 7300) (list 5300 6300 7100 7300) (list 5300 5100 6100 7100) (list 5300 6300 6100 7100) (list 4800 4900 6200 7500) (list 4800 6100 6200 7500) (list 4800 4900 6300 7400) (list 4800 6100 6300 7400) (list 4800 5000 6100 7500) (list 4800 6200 6100 7500) (list 4800 5000 6300 7300) (list 4800 6200 6300 7300) (list 4800 5100 6100 7400) (list 4800 6300 6100 7400) (list 4800 5100 6200 7300) (list 4800 6300 6200 7300) (list 4900 4800 6200 7500) (list 4900 6000 6200 7500) (list 4900 4800 6300 7400) (list 4900 6000 6300 7400) (list 4900 5000 6000 7500) (list 4900 5000 7200 7500) (list 4900 6200 6000 7500) (list 4900 6200 7200 7500) (list 4900 5000 6300 7200) (list 4900 6200 6300 7200) (list 4900 5100 6000 7400) (list 4900 5100 7200 7400) (list 4900 6300 6000 7400) (list 4900 6300 7200 7400) (list 4900 5100 6200 7200) (list 4900 6300 6200 7200) (list 5000 4800 6100 7500) (list 5000 6000 6100 7500) (list 5000 4800 6300 7300) (list 5000 6000 6300 7300) (list 5000 4900 6000 7500) (list 5000 4900 7200 7500) (list 5000 6100 6000 7500) (list 5000 6100 7200 7500) (list 5000 4900 6300 7200) (list 5000 6100 6300 7200) (list 5000 5100 6000 7300) (list 5000 5100 7200 7300) (list 5000 6300 6000 7300) (list 5000 6300 7200 7300) (list 5000 5100 6100 7200) (list 5000 6300 6100 7200) (list 5100 4800 6100 7400) (list 5100 6000 6100 7400) (list 5100 4800 6200 7300) (list 5100 6000 6200 7300) (list 5100 4900 6000 7400) (list 5100 4900 7200 7400) (list 5100 6100 6000 7400) (list 5100 6100 7200 7400) (list 5100 4900 6200 7200) (list 5100 6100 6200 7200) (list 5100 5000 6000 7300) (list 5100 5000 7200 7300) (list 5100 6200 6000 7300) (list 5100 6200 7200 7300) (list 5100 5000 6100 7200) (list 5100 6200 6100 7200) (list 4800 5000 6400 7800) (list 4800 6200 6400 7800) (list 4800 5000 6600 7600) (list 4800 6200 6600 7600) (list 4800 5200 6200 7800) (list 4800 6400 6200 7800) (list 4800 5200 6600 7400) (list 4800 6400 6600 7400) (list 4800 5400 6200 7600) (list 4800 6600 6200 7600) (list 4800 5400 6400 7400) (list 4800 6600 6400 7400) (list 5000 4800 6400 7800) (list 5000 6000 6400 7800) (list 5000 4800 6600 7600) (list 5000 6000 6600 7600) (list 5000 5200 6000 7800) (list 5000 5200 7200 7800) (list 5000 6400 6000 7800) (list 5000 6400 7200 7800) (list 5000 5200 6600 7200) (list 5000 6400 6600 7200) (list 5000 5400 6000 7600) (list 5000 5400 7200 7600) (list 5000 6600 6000 7600) (list 5000 6600 7200 7600) (list 5000 5400 6400 7200) (list 5000 6600 6400 7200) (list 5200 4800 6200 7800) (list 5200 6000 6200 7800) (list 5200 4800 6600 7400) (list 5200 6000 6600 7400) (list 5200 5000 6000 7800) (list 5200 5000 7200 7800) (list 5200 6200 6000 7800) (list 5200 6200 7200 7800) (list 5200 5000 6600 7200) (list 5200 6200 6600 7200) (list 5200 5400 6000 7400) (list 5200 5400 7200 7400) (list 5200 6600 6000 7400) (list 5200 6600 7200 7400) (list 5200 5400 6200 7200) (list 5200 6600 6200 7200) (list 5400 4800 6200 7600) (list 5400 6000 6200 7600) (list 5400 4800 6400 7400) (list 5400 6000 6400 7400) (list 5400 5000 6000 7600) (list 5400 5000 7200 7600) (list 5400 6200 6000 7600) (list 5400 6200 7200 7600) (list 5400 5000 6400 7200) (list 5400 6200 6400 7200) (list 5400 5200 6000 7400) (list 5400 5200 7200 7400) (list 5400 6400 6000 7400) (list 5400 6400 7200 7400) (list 5400 5200 6200 7200) (list 5400 6400 6200 7200) (list 4900 5000 6300 7600) (list 4900 6200 6300 7600) (list 4900 5000 6400 7500) (list 4900 6200 6400 7500) (list 4900 5100 6200 7600) (list 4900 6300 6200 7600) (list 4900 5100 6400 7400) (list 4900 6300 6400 7400) (list 4900 5200 6200 7500) (list 4900 6400 6200 7500) (list 4900 5200 6300 7400) (list 4900 6400 6300 7400) (list 5000 4900 6300 7600) (list 5000 6100 6300 7600) (list 5000 4900 6400 7500) (list 5000 6100 6400 7500) (list 5000 5100 6100 7600) (list 5000 6300 6100 7600) (list 5000 5100 6400 7300) (list 5000 6300 6400 7300) (list 5000 5200 6100 7500) (list 5000 6400 6100 7500) (list 5000 5200 6300 7300) (list 5000 6400 6300 7300) (list 5100 4900 6200 7600) (list 5100 6100 6200 7600) (list 5100 4900 6400 7400) (list 5100 6100 6400 7400) (list 5100 5000 6100 7600) (list 5100 6200 6100 7600) (list 5100 5000 6400 7300) (list 5100 6200 6400 7300) (list 5100 5200 6100 7400) (list 5100 6400 6100 7400) (list 5100 5200 6200 7300) (list 5100 6400 6200 7300) (list 5200 4900 6200 7500) (list 5200 6100 6200 7500) (list 5200 4900 6300 7400) (list 5200 6100 6300 7400) (list 5200 5000 6100 7500) (list 5200 6200 6100 7500) (list 5200 5000 6300 7300) (list 5200 6200 6300 7300) (list 5200 5100 6100 7400) (list 5200 6300 6100 7400) (list 5200 5100 6200 7300) (list 5200 6300 6200 7300) (list 4900 5100 6500 7900) (list 4900 6300 6500 7900) (list 4900 5100 6700 7700) (list 4900 6300 6700 7700) (list 4900 5300 6300 7900) (list 4900 6500 6300 7900) (list 4900 5300 6700 7500) (list 4900 6500 6700 7500) (list 4900 5500 6300 7700) (list 4900 6700 6300 7700) (list 4900 5500 6500 7500) (list 4900 6700 6500 7500) (list 5100 4900 6500 7900) (list 5100 6100 6500 7900) (list 5100 4900 6700 7700) (list 5100 6100 6700 7700) (list 5100 5300 6100 7900) (list 5100 6500 6100 7900) (list 5100 5300 6700 7300) (list 5100 6500 6700 7300) (list 5100 5500 6100 7700) (list 5100 6700 6100 7700) (list 5100 5500 6500 7300) (list 5100 6700 6500 7300) (list 5300 4900 6300 7900) (list 5300 6100 6300 7900) (list 5300 4900 6700 7500) (list 5300 6100 6700 7500) (list 5300 5100 6100 7900) (list 5300 6300 6100 7900) (list 5300 5100 6700 7300) (list 5300 6300 6700 7300) (list 5300 5500 6100 7500) (list 5300 6700 6100 7500) (list 5300 5500 6300 7300) (list 5300 6700 6300 7300) (list 5500 4900 6300 7700) (list 5500 6100 6300 7700) (list 5500 4900 6500 7500) (list 5500 6100 6500 7500) (list 5500 5100 6100 7700) (list 5500 6300 6100 7700) (list 5500 5100 6500 7300) (list 5500 6300 6500 7300) (list 5500 5300 6100 7500) (list 5500 6500 6100 7500) (list 5500 5300 6300 7300) (list 5500 6500 6300 7300) (list 5000 5100 6400 7700) (list 5000 6300 6400 7700) (list 5000 5100 6500 7600) (list 5000 6300 6500 7600) (list 5000 5200 6300 7700) (list 5000 6400 6300 7700) (list 5000 5200 6500 7500) (list 5000 6400 6500 7500) (list 5000 5300 6300 7600) (list 5000 6500 6300 7600) (list 5000 5300 6400 7500) (list 5000 6500 6400 7500) (list 5100 5000 6400 7700) (list 5100 6200 6400 7700) (list 5100 5000 6500 7600) (list 5100 6200 6500 7600) (list 5100 5200 6200 7700) (list 5100 6400 6200 7700) (list 5100 5200 6500 7400) (list 5100 6400 6500 7400) (list 5100 5300 6200 7600) (list 5100 6500 6200 7600) (list 5100 5300 6400 7400) (list 5100 6500 6400 7400) (list 5200 5000 6300 7700) (list 5200 6200 6300 7700) (list 5200 5000 6500 7500) (list 5200 6200 6500 7500) (list 5200 5100 6200 7700) (list 5200 6300 6200 7700) (list 5200 5100 6500 7400) (list 5200 6300 6500 7400) (list 5200 5300 6200 7500) (list 5200 6500 6200 7500) (list 5200 5300 6300 7400) (list 5200 6500 6300 7400) (list 5300 5000 6300 7600) (list 5300 6200 6300 7600) (list 5300 5000 6400 7500) (list 5300 6200 6400 7500) (list 5300 5100 6200 7600) (list 5300 6300 6200 7600) (list 5300 5100 6400 7400) (list 5300 6300 6400 7400) (list 5300 5200 6200 7500) (list 5300 6400 6200 7500) (list 5300 5200 6300 7400) (list 5300 6400 6300 7400) (list 5000 5200 6600 6800) (list 5000 5200 6600 8000) (list 5000 6400 6600 6800) (list 5000 6400 6600 8000) (list 5000 5200 6800 7800) (list 5000 6400 6800 7800) (list 5000 5400 6400 6800) (list 5000 5400 6400 8000) (list 5000 6600 6400 6800) (list 5000 6600 6400 8000) (list 5000 5400 6800 7600) (list 5000 6600 6800 7600) (list 5000 5600 6400 7800) (list 5000 5600 6600 7600) (list 5200 5000 6600 6800) (list 5200 5000 6600 8000) (list 5200 6200 6600 6800) (list 5200 6200 6600 8000) (list 5200 5000 6800 7800) (list 5200 6200 6800 7800) (list 5200 5400 6200 6800) (list 5200 5400 6200 8000) (list 5200 6600 6200 6800) (list 5200 6600 6200 8000) (list 5200 5400 6800 7400) (list 5200 6600 6800 7400) (list 5200 5600 6200 7800) (list 5200 5600 6600 7400) (list 5400 5000 6400 6800) (list 5400 5000 6400 8000) (list 5400 6200 6400 6800) (list 5400 6200 6400 8000) (list 5400 5000 6800 7600) (list 5400 6200 6800 7600) (list 5400 5200 6200 6800) (list 5400 5200 6200 8000) (list 5400 6400 6200 6800) (list 5400 6400 6200 8000) (list 5400 5200 6800 7400) (list 5400 6400 6800 7400) (list 5400 5600 6200 7600) (list 5400 5600 6400 7400) (list 5600 5000 6400 7800) (list 5600 6200 6400 7800) (list 5600 5000 6600 7600) (list 5600 6200 6600 7600) (list 5600 5200 6200 7800) (list 5600 6400 6200 7800) (list 5600 5200 6600 7400) (list 5600 6400 6600 7400) (list 5600 5400 6200 7600) (list 5600 6600 6200 7600) (list 5600 5400 6400 7400) (list 5600 6600 6400 7400) (list 5100 5200 6500 7800) (list 5100 6400 6500 7800) (list 5100 5200 6600 7700) (list 5100 6400 6600 7700) (list 5100 5300 6400 7800) (list 5100 6500 6400 7800) (list 5100 5300 6600 7600) (list 5100 6500 6600 7600) (list 5100 5400 6400 7700) (list 5100 6600 6400 7700) (list 5100 5400 6500 7600) (list 5100 6600 6500 7600) (list 5200 5100 6500 7800) (list 5200 6300 6500 7800) (list 5200 5100 6600 7700) (list 5200 6300 6600 7700) (list 5200 5300 6300 7800) (list 5200 6500 6300 7800) (list 5200 5300 6600 7500) (list 5200 6500 6600 7500) (list 5200 5400 6300 7700) (list 5200 6600 6300 7700) (list 5200 5400 6500 7500) (list 5200 6600 6500 7500) (list 5300 5100 6400 7800) (list 5300 6300 6400 7800) (list 5300 5100 6600 7600) (list 5300 6300 6600 7600) (list 5300 5200 6300 7800) (list 5300 6400 6300 7800) (list 5300 5200 6600 7500) (list 5300 6400 6600 7500) (list 5300 5400 6300 7600) (list 5300 6600 6300 7600) (list 5300 5400 6400 7500) (list 5300 6600 6400 7500) (list 5400 5100 6400 7700) (list 5400 6300 6400 7700) (list 5400 5100 6500 7600) (list 5400 6300 6500 7600) (list 5400 5200 6300 7700) (list 5400 6400 6300 7700) (list 5400 5200 6500 7500) (list 5400 6400 6500 7500) (list 5400 5300 6300 7600) (list 5400 6500 6300 7600) (list 5400 5300 6400 7500) (list 5400 6500 6400 7500) (list 5100 5300 6700 6900) (list 5100 5300 6700 8100) (list 5100 6500 6700 6900) (list 5100 6500 6700 8100) (list 5100 5300 5700 7900) (list 5100 5300 6900 7900) (list 5100 6500 5700 7900) (list 5100 6500 6900 7900) (list 5100 5500 6500 6900) (list 5100 5500 6500 8100) (list 5100 6700 6500 6900) (list 5100 6700 6500 8100) (list 5100 5500 5700 7700) (list 5100 5500 6900 7700) (list 5100 6700 5700 7700) (list 5100 6700 6900 7700) (list 5100 5700 6500 7900) (list 5100 5700 6700 7700) (list 5300 5100 6700 6900) (list 5300 5100 6700 8100) (list 5300 6300 6700 6900) (list 5300 6300 6700 8100) (list 5300 5100 5700 7900) (list 5300 5100 6900 7900) (list 5300 6300 5700 7900) (list 5300 6300 6900 7900) (list 5300 5500 6300 6900) (list 5300 5500 6300 8100) (list 5300 6700 6300 6900) (list 5300 6700 6300 8100) (list 5300 5500 5700 7500) (list 5300 5500 6900 7500) (list 5300 6700 5700 7500) (list 5300 6700 6900 7500) (list 5300 5700 6300 7900) (list 5300 5700 6700 7500) (list 5500 5100 6500 6900) (list 5500 5100 6500 8100) (list 5500 6300 6500 6900) (list 5500 6300 6500 8100) (list 5500 5100 5700 7700) (list 5500 5100 6900 7700) (list 5500 6300 5700 7700) (list 5500 6300 6900 7700) (list 5500 5300 6300 6900) (list 5500 5300 6300 8100) (list 5500 6500 6300 6900) (list 5500 6500 6300 8100) (list 5500 5300 5700 7500) (list 5500 5300 6900 7500) (list 5500 6500 5700 7500) (list 5500 6500 6900 7500) (list 5500 5700 6300 7700) (list 5500 5700 6500 7500) (list 5700 5100 6500 7900) (list 5700 6300 6500 7900) (list 5700 5100 6700 7700) (list 5700 6300 6700 7700) (list 5700 5300 6300 7900) (list 5700 6500 6300 7900) (list 5700 5300 6700 7500) (list 5700 6500 6700 7500) (list 5700 5500 6300 7700) (list 5700 6700 6300 7700) (list 5700 5500 6500 7500) (list 5700 6700 6500 7500) (list 5200 5300 6600 7900) (list 5200 6500 6600 7900) (list 5200 5300 6700 7800) (list 5200 6500 6700 7800) (list 5200 5400 6500 7900) (list 5200 6600 6500 7900) (list 5200 5400 6700 7700) (list 5200 6600 6700 7700) (list 5200 5500 6500 7800) (list 5200 6700 6500 7800) (list 5200 5500 6600 7700) (list 5200 6700 6600 7700) (list 5300 5200 6600 7900) (list 5300 6400 6600 7900) (list 5300 5200 6700 7800) (list 5300 6400 6700 7800) (list 5300 5400 6400 7900) (list 5300 6600 6400 7900) (list 5300 5400 6700 7600) (list 5300 6600 6700 7600) (list 5300 5500 6400 7800) (list 5300 6700 6400 7800) (list 5300 5500 6600 7600) (list 5300 6700 6600 7600) (list 5400 5200 6500 7900) (list 5400 6400 6500 7900) (list 5400 5200 6700 7700) (list 5400 6400 6700 7700) (list 5400 5300 6400 7900) (list 5400 6500 6400 7900) (list 5400 5300 6700 7600) (list 5400 6500 6700 7600) (list 5400 5500 6400 7700) (list 5400 6700 6400 7700) (list 5400 5500 6500 7600) (list 5400 6700 6500 7600) (list 5500 5200 6500 7800) (list 5500 6400 6500 7800) (list 5500 5200 6600 7700) (list 5500 6400 6600 7700) (list 5500 5300 6400 7800) (list 5500 6500 6400 7800) (list 5500 5300 6600 7600) (list 5500 6500 6600 7600) (list 5500 5400 6400 7700) (list 5500 6600 6400 7700) (list 5500 5400 6500 7600) (list 5500 6600 6500 7600) (list 5200 5400 6800 7000) (list 5200 5400 6800 8200) (list 5200 6600 6800 7000) (list 5200 6600 6800 8200) (list 5200 5400 5800 6800) (list 5200 5400 5800 8000) (list 5200 5400 7000 6800) (list 5200 5400 7000 8000) (list 5200 6600 5800 6800) (list 5200 6600 5800 8000) (list 5200 6600 7000 6800) (list 5200 6600 7000 8000) (list 5200 5600 6600 7000) (list 5200 5600 6600 8200) (list 5200 5600 5800 7800) (list 5200 5600 7000 7800) (list 5200 5800 6600 6800) (list 5200 5800 6600 8000) (list 5200 5800 6800 7800) (list 5400 5200 6800 7000) (list 5400 5200 6800 8200) (list 5400 6400 6800 7000) (list 5400 6400 6800 8200) (list 5400 5200 5800 6800) (list 5400 5200 5800 8000) (list 5400 5200 7000 6800) (list 5400 5200 7000 8000) (list 5400 6400 5800 6800) (list 5400 6400 5800 8000) (list 5400 6400 7000 6800) (list 5400 6400 7000 8000) (list 5400 5600 6400 7000) (list 5400 5600 6400 8200) (list 5400 5600 5800 7600) (list 5400 5600 7000 7600) (list 5400 5800 6400 6800) (list 5400 5800 6400 8000) (list 5400 5800 6800 7600) (list 5600 5200 6600 7000) (list 5600 5200 6600 8200) (list 5600 6400 6600 7000) (list 5600 6400 6600 8200) (list 5600 5200 5800 7800) (list 5600 5200 7000 7800) (list 5600 6400 5800 7800) (list 5600 6400 7000 7800) (list 5600 5400 6400 7000) (list 5600 5400 6400 8200) (list 5600 6600 6400 7000) (list 5600 6600 6400 8200) (list 5600 5400 5800 7600) (list 5600 5400 7000 7600) (list 5600 6600 5800 7600) (list 5600 6600 7000 7600) (list 5600 5800 6400 7800) (list 5600 5800 6600 7600) (list 5800 5200 6600 6800) (list 5800 5200 6600 8000) (list 5800 6400 6600 6800) (list 5800 6400 6600 8000) (list 5800 5200 6800 7800) (list 5800 6400 6800 7800) (list 5800 5400 6400 6800) (list 5800 5400 6400 8000) (list 5800 6600 6400 6800) (list 5800 6600 6400 8000) (list 5800 5400 6800 7600) (list 5800 6600 6800 7600) (list 5800 5600 6400 7800) (list 5800 5600 6600 7600) (list 5300 5400 6700 6800) (list 5300 5400 6700 8000) (list 5300 6600 6700 6800) (list 5300 6600 6700 8000) (list 5300 5400 6800 7900) (list 5300 6600 6800 7900) (list 5300 5500 6600 6800) (list 5300 5500 6600 8000) (list 5300 6700 6600 6800) (list 5300 6700 6600 8000) (list 5300 5500 6800 7800) (list 5300 6700 6800 7800) (list 5300 5600 6600 7900) (list 5300 5600 6700 7800) (list 5400 5300 6700 6800) (list 5400 5300 6700 8000) (list 5400 6500 6700 6800) (list 5400 6500 6700 8000) (list 5400 5300 6800 7900) (list 5400 6500 6800 7900) (list 5400 5500 6500 6800) (list 5400 5500 6500 8000) (list 5400 6700 6500 6800) (list 5400 6700 6500 8000) (list 5400 5500 6800 7700) (list 5400 6700 6800 7700) (list 5400 5600 6500 7900) (list 5400 5600 6700 7700) (list 5500 5300 6600 6800) (list 5500 5300 6600 8000) (list 5500 6500 6600 6800) (list 5500 6500 6600 8000) (list 5500 5300 6800 7800) (list 5500 6500 6800 7800) (list 5500 5400 6500 6800) (list 5500 5400 6500 8000) (list 5500 6600 6500 6800) (list 5500 6600 6500 8000) (list 5500 5400 6800 7700) (list 5500 6600 6800 7700) (list 5500 5600 6500 7800) (list 5500 5600 6600 7700) (list 5600 5300 6600 7900) (list 5600 6500 6600 7900) (list 5600 5300 6700 7800) (list 5600 6500 6700 7800) (list 5600 5400 6500 7900) (list 5600 6600 6500 7900) (list 5600 5400 6700 7700) (list 5600 6600 6700 7700) (list 5600 5500 6500 7800) (list 5600 6700 6500 7800) (list 5600 5500 6600 7700) (list 5600 6700 6600 7700) (list 5300 5500 5700 7100) (list 5300 5500 5700 8300) (list 5300 5500 6900 7100) (list 5300 5500 6900 8300) (list 5300 6700 5700 7100) (list 5300 6700 5700 8300) (list 5300 6700 6900 7100) (list 5300 6700 6900 8300) (list 5300 5500 5900 6900) (list 5300 5500 5900 8100) (list 5300 5500 7100 6900) (list 5300 5500 7100 8100) (list 5300 6700 5900 6900) (list 5300 6700 5900 8100) (list 5300 6700 7100 6900) (list 5300 6700 7100 8100) (list 5300 5700 6700 7100) (list 5300 5700 6700 8300) (list 5300 5700 5900 7900) (list 5300 5700 7100 7900) (list 5300 5900 6700 6900) (list 5300 5900 6700 8100) (list 5300 5900 5700 7900) (list 5300 5900 6900 7900) (list 5500 5300 5700 7100) (list 5500 5300 5700 8300) (list 5500 5300 6900 7100) (list 5500 5300 6900 8300) (list 5500 6500 5700 7100) (list 5500 6500 5700 8300) (list 5500 6500 6900 7100) (list 5500 6500 6900 8300) (list 5500 5300 5900 6900) (list 5500 5300 5900 8100) (list 5500 5300 7100 6900) (list 5500 5300 7100 8100) (list 5500 6500 5900 6900) (list 5500 6500 5900 8100) (list 5500 6500 7100 6900) (list 5500 6500 7100 8100) (list 5500 5700 6500 7100) (list 5500 5700 6500 8300) (list 5500 5700 5900 7700) (list 5500 5700 7100 7700) (list 5500 5900 6500 6900) (list 5500 5900 6500 8100) (list 5500 5900 5700 7700) (list 5500 5900 6900 7700) (list 5700 5300 6700 7100) (list 5700 5300 6700 8300) (list 5700 6500 6700 7100) (list 5700 6500 6700 8300) (list 5700 5300 5900 7900) (list 5700 5300 7100 7900) (list 5700 6500 5900 7900) (list 5700 6500 7100 7900) (list 5700 5500 6500 7100) (list 5700 5500 6500 8300) (list 5700 6700 6500 7100) (list 5700 6700 6500 8300) (list 5700 5500 5900 7700) (list 5700 5500 7100 7700) (list 5700 6700 5900 7700) (list 5700 6700 7100 7700) (list 5700 5900 6500 7900) (list 5700 5900 6700 7700) (list 5400 5500 6800 6900) (list 5400 5500 6800 8100) (list 5400 6700 6800 6900) (list 5400 6700 6800 8100) (list 5400 5500 5700 6800) (list 5400 5500 5700 8000) (list 5400 5500 6900 6800) (list 5400 5500 6900 8000) (list 5400 6700 5700 6800) (list 5400 6700 5700 8000) (list 5400 6700 6900 6800) (list 5400 6700 6900 8000) (list 5400 5600 6700 6900) (list 5400 5600 6700 8100) (list 5400 5600 5700 7900) (list 5400 5600 6900 7900) (list 5400 5700 6700 6800) (list 5400 5700 6700 8000) (list 5400 5700 6800 7900) (list 5500 5400 6800 6900) (list 5500 5400 6800 8100) (list 5500 6600 6800 6900) (list 5500 6600 6800 8100) (list 5500 5400 5700 6800) (list 5500 5400 5700 8000) (list 5500 5400 6900 6800) (list 5500 5400 6900 8000) (list 5500 6600 5700 6800) (list 5500 6600 5700 8000) (list 5500 6600 6900 6800) (list 5500 6600 6900 8000) (list 5500 5600 6600 6900) (list 5500 5600 6600 8100) (list 5500 5600 5700 7800) (list 5500 5600 6900 7800) (list 5500 5700 6600 6800) (list 5500 5700 6600 8000) (list 5500 5700 6800 7800) (list 5600 5400 6700 6900) (list 5600 5400 6700 8100) (list 5600 6600 6700 6900) (list 5600 6600 6700 8100) (list 5600 5400 5700 7900) (list 5600 5400 6900 7900) (list 5600 6600 5700 7900) (list 5600 6600 6900 7900) (list 5600 5500 6600 6900) (list 5600 5500 6600 8100) (list 5600 6700 6600 6900) (list 5600 6700 6600 8100) (list 5600 5500 5700 7800) (list 5600 5500 6900 7800) (list 5600 6700 5700 7800) (list 5600 6700 6900 7800) (list 5600 5700 6600 7900) (list 5600 5700 6700 7800) (list 5700 5400 6700 6800) (list 5700 5400 6700 8000) (list 5700 6600 6700 6800) (list 5700 6600 6700 8000) (list 5700 5400 6800 7900) (list 5700 6600 6800 7900) (list 5700 5500 6600 6800) (list 5700 5500 6600 8000) (list 5700 6700 6600 6800) (list 5700 6700 6600 8000) (list 5700 5500 6800 7800) (list 5700 6700 6800 7800) (list 5700 5600 6600 7900) (list 5700 5600 6700 7800) (list 5400 5600 5800 7200) (list 5400 5600 5800 8400) (list 5400 5600 7000 7200) (list 5400 5600 7000 8400) (list 5400 5600 6000 7000) (list 5400 5600 6000 8200) (list 5400 5600 7200 7000) (list 5400 5600 7200 8200) (list 5400 5800 6800 7200) (list 5400 5800 6800 8400) (list 5400 5800 6000 6800) (list 5400 5800 6000 8000) (list 5400 5800 7200 6800) (list 5400 5800 7200 8000) (list 5400 6000 6800 7000) (list 5400 6000 6800 8200) (list 5400 6000 5800 6800) (list 5400 6000 5800 8000) (list 5400 6000 7000 6800) (list 5400 6000 7000 8000) (list 5600 5400 5800 7200) (list 5600 5400 5800 8400) (list 5600 5400 7000 7200) (list 5600 5400 7000 8400) (list 5600 6600 5800 7200) (list 5600 6600 5800 8400) (list 5600 6600 7000 7200) (list 5600 6600 7000 8400) (list 5600 5400 6000 7000) (list 5600 5400 6000 8200) (list 5600 5400 7200 7000) (list 5600 5400 7200 8200) (list 5600 6600 6000 7000) (list 5600 6600 6000 8200) (list 5600 6600 7200 7000) (list 5600 6600 7200 8200) (list 5600 5800 6600 7200) (list 5600 5800 6600 8400) (list 5600 5800 6000 7800) (list 5600 5800 7200 7800) (list 5600 6000 6600 7000) (list 5600 6000 6600 8200) (list 5600 6000 5800 7800) (list 5600 6000 7000 7800) (list 5800 5400 6800 7200) (list 5800 5400 6800 8400) (list 5800 6600 6800 7200) (list 5800 6600 6800 8400) (list 5800 5400 6000 6800) (list 5800 5400 6000 8000) (list 5800 5400 7200 6800) (list 5800 5400 7200 8000) (list 5800 6600 6000 6800) (list 5800 6600 6000 8000) (list 5800 6600 7200 6800) (list 5800 6600 7200 8000) (list 5800 5600 6600 7200) (list 5800 5600 6600 8400) (list 5800 5600 6000 7800) (list 5800 5600 7200 7800) (list 5800 6000 6600 6800) (list 5800 6000 6600 8000) (list 5800 6000 6800 7800) (list 5500 5600 5700 7000) (list 5500 5600 5700 8200) (list 5500 5600 6900 7000) (list 5500 5600 6900 8200) (list 5500 5600 5800 6900) (list 5500 5600 5800 8100) (list 5500 5600 7000 6900) (list 5500 5600 7000 8100) (list 5500 5700 6800 7000) (list 5500 5700 6800 8200) (list 5500 5700 5800 6800) (list 5500 5700 5800 8000) (list 5500 5700 7000 6800) (list 5500 5700 7000 8000) (list 5500 5800 6800 6900) (list 5500 5800 6800 8100) (list 5500 5800 5700 6800) (list 5500 5800 5700 8000) (list 5500 5800 6900 6800) (list 5500 5800 6900 8000) (list 5600 5500 5700 7000) (list 5600 5500 5700 8200) (list 5600 5500 6900 7000) (list 5600 5500 6900 8200) (list 5600 6700 5700 7000) (list 5600 6700 5700 8200) (list 5600 6700 6900 7000) (list 5600 6700 6900 8200) (list 5600 5500 5800 6900) (list 5600 5500 5800 8100) (list 5600 5500 7000 6900) (list 5600 5500 7000 8100) (list 5600 6700 5800 6900) (list 5600 6700 5800 8100) (list 5600 6700 7000 6900) (list 5600 6700 7000 8100) (list 5600 5700 6700 7000) (list 5600 5700 6700 8200) (list 5600 5700 5800 7900) (list 5600 5700 7000 7900) (list 5600 5800 6700 6900) (list 5600 5800 6700 8100) (list 5600 5800 5700 7900) (list 5600 5800 6900 7900) (list 5700 5500 6800 7000) (list 5700 5500 6800 8200) (list 5700 6700 6800 7000) (list 5700 6700 6800 8200) (list 5700 5500 5800 6800) (list 5700 5500 5800 8000) (list 5700 5500 7000 6800) (list 5700 5500 7000 8000) (list 5700 6700 5800 6800) (list 5700 6700 5800 8000) (list 5700 6700 7000 6800) (list 5700 6700 7000 8000) (list 5700 5600 6700 7000) (list 5700 5600 6700 8200) (list 5700 5600 5800 7900) (list 5700 5600 7000 7900) (list 5700 5800 6700 6800) (list 5700 5800 6700 8000) (list 5700 5800 6800 7900) (list 5800 5500 6800 6900) (list 5800 5500 6800 8100) (list 5800 6700 6800 6900) (list 5800 6700 6800 8100) (list 5800 5500 5700 6800) (list 5800 5500 5700 8000) (list 5800 5500 6900 6800) (list 5800 5500 6900 8000) (list 5800 6700 5700 6800) (list 5800 6700 5700 8000) (list 5800 6700 6900 6800) (list 5800 6700 6900 8000) (list 5800 5600 6700 6900) (list 5800 5600 6700 8100) (list 5800 5600 5700 7900) (list 5800 5600 6900 7900) (list 5800 5700 6700 6800) (list 5800 5700 6700 8000) (list 5800 5700 6800 7900) (list 5500 5700 5900 7300) (list 5500 5700 5900 8500) (list 5500 5700 7100 7300) (list 5500 5700 7100 8500) (list 5500 5700 6100 7100) (list 5500 5700 6100 8300) (list 5500 5900 5700 7300) (list 5500 5900 5700 8500) (list 5500 5900 6900 7300) (list 5500 5900 6900 8500) (list 5500 5900 6100 6900) (list 5500 5900 6100 8100) (list 5500 6100 5700 7100) (list 5500 6100 5700 8300) (list 5500 6100 6900 7100) (list 5500 6100 6900 8300) (list 5500 6100 5900 6900) (list 5500 6100 5900 8100) (list 5500 6100 7100 6900) (list 5500 6100 7100 8100) (list 5700 5500 5900 7300) (list 5700 5500 5900 8500) (list 5700 5500 7100 7300) (list 5700 5500 7100 8500) (list 5700 6700 5900 7300) (list 5700 6700 5900 8500) (list 5700 6700 7100 7300) (list 5700 6700 7100 8500) (list 5700 5500 6100 7100) (list 5700 5500 6100 8300) (list 5700 6700 6100 7100) (list 5700 6700 6100 8300) (list 5700 5900 6700 7300) (list 5700 5900 6700 8500) (list 5700 5900 6100 7900) (list 5700 6100 6700 7100) (list 5700 6100 6700 8300) (list 5700 6100 5900 7900) (list 5700 6100 7100 7900) (list 5600 5700 5800 7100) (list 5600 5700 5800 8300) (list 5600 5700 7000 7100) (list 5600 5700 7000 8300) (list 5600 5700 5900 7000) (list 5600 5700 5900 8200) (list 5600 5700 7100 7000) (list 5600 5700 7100 8200) (list 5600 5800 5700 7100) (list 5600 5800 5700 8300) (list 5600 5800 6900 7100) (list 5600 5800 6900 8300) (list 5600 5800 5900 6900) (list 5600 5800 5900 8100) (list 5600 5800 7100 6900) (list 5600 5800 7100 8100) (list 5600 5900 5700 7000) (list 5600 5900 5700 8200) (list 5600 5900 6900 7000) (list 5600 5900 6900 8200) (list 5600 5900 5800 6900) (list 5600 5900 5800 8100) (list 5600 5900 7000 6900) (list 5600 5900 7000 8100) (list 5700 5600 5800 7100) (list 5700 5600 5800 8300) (list 5700 5600 7000 7100) (list 5700 5600 7000 8300) (list 5700 5600 5900 7000) (list 5700 5600 5900 8200) (list 5700 5600 7100 7000) (list 5700 5600 7100 8200) (list 5700 5800 6800 7100) (list 5700 5800 6800 8300) (list 5700 5800 5900 6800) (list 5700 5800 5900 8000) (list 5700 5800 7100 6800) (list 5700 5800 7100 8000) (list 5700 5900 6800 7000) (list 5700 5900 6800 8200) (list 5700 5900 5800 6800) (list 5700 5900 5800 8000) (list 5700 5900 7000 6800) (list 5700 5900 7000 8000) (list 5800 5600 5700 7100) (list 5800 5600 5700 8300) (list 5800 5600 6900 7100) (list 5800 5600 6900 8300) (list 5800 5600 5900 6900) (list 5800 5600 5900 8100) (list 5800 5600 7100 6900) (list 5800 5600 7100 8100) (list 5800 5700 6800 7100) (list 5800 5700 6800 8300) (list 5800 5700 5900 6800) (list 5800 5700 5900 8000) (list 5800 5700 7100 6800) (list 5800 5700 7100 8000) (list 5800 5900 6800 6900) (list 5800 5900 6800 8100) (list 5800 5900 5700 6800) (list 5800 5900 5700 8000) (list 5800 5900 6900 6800) (list 5800 5900 6900 8000) (list 5600 5800 6000 7400) (list 5600 5800 7200 7400) (list 5600 5800 6200 7200) (list 5600 5800 6200 8400) (list 5600 6000 5800 7400) (list 5600 6000 7000 7400) (list 5600 6000 6200 7000) (list 5600 6000 6200 8200) (list 5600 6200 5800 7200) (list 5600 6200 5800 8400) (list 5600 6200 7000 7200) (list 5600 6200 7000 8400) (list 5600 6200 6000 7000) (list 5600 6200 6000 8200) (list 5600 6200 7200 7000) (list 5600 6200 7200 8200) (list 5800 5600 6000 7400) (list 5800 5600 7200 7400) (list 5800 5600 6200 7200) (list 5800 5600 6200 8400) (list 5800 6000 6800 7400) (list 5800 6000 6200 6800) (list 5800 6000 6200 8000) (list 5800 6200 6800 7200) (list 5800 6200 6800 8400) (list 5800 6200 6000 6800) (list 5800 6200 6000 8000) (list 5800 6200 7200 6800) (list 5800 6200 7200 8000) (list 5700 5800 5900 7200) (list 5700 5800 5900 8400) (list 5700 5800 7100 7200) (list 5700 5800 7100 8400) (list 5700 5800 6000 7100) (list 5700 5800 6000 8300) (list 5700 5800 7200 7100) (list 5700 5800 7200 8300) (list 5700 5900 5800 7200) (list 5700 5900 5800 8400) (list 5700 5900 7000 7200) (list 5700 5900 7000 8400) (list 5700 5900 6000 7000) (list 5700 5900 6000 8200) (list 5700 5900 7200 7000) (list 5700 5900 7200 8200) (list 5700 6000 5800 7100) (list 5700 6000 5800 8300) (list 5700 6000 7000 7100) (list 5700 6000 7000 8300) (list 5700 6000 5900 7000) (list 5700 6000 5900 8200) (list 5700 6000 7100 7000) (list 5700 6000 7100 8200) (list 5800 5700 5900 7200) (list 5800 5700 5900 8400) (list 5800 5700 7100 7200) (list 5800 5700 7100 8400) (list 5800 5700 6000 7100) (list 5800 5700 6000 8300) (list 5800 5700 7200 7100) (list 5800 5700 7200 8300) (list 5800 5900 5700 7200) (list 5800 5900 5700 8400) (list 5800 5900 6900 7200) (list 5800 5900 6900 8400) (list 5800 5900 6000 6900) (list 5800 5900 6000 8100) (list 5800 5900 7200 6900) (list 5800 5900 7200 8100) (list 5800 6000 5700 7100) (list 5800 6000 5700 8300) (list 5800 6000 6900 7100) (list 5800 6000 6900 8300) (list 5800 6000 5900 6900) (list 5800 6000 5900 8100) (list 5800 6000 7100 6900) (list 5800 6000 7100 8100) (list 5700 5900 6100 7500) (list 5700 5900 6300 7300) (list 5700 5900 6300 8500) (list 5700 6100 5900 7500) (list 5700 6100 7100 7500) (list 5700 6100 6300 7100) (list 5700 6100 6300 8300) (list 5700 6300 5900 7300) (list 5700 6300 5900 8500) (list 5700 6300 7100 7300) (list 5700 6300 7100 8500) (list 5700 6300 6100 7100) (list 5700 6300 6100 8300) (list 5800 5900 6000 7300) (list 5800 5900 6000 8500) (list 5800 5900 7200 7300) (list 5800 5900 7200 8500) (list 5800 5900 6100 7200) (list 5800 5900 6100 8400) (list 5800 6000 5900 7300) (list 5800 6000 5900 8500) (list 5800 6000 7100 7300) (list 5800 6000 7100 8500) (list 5800 6000 6100 7100) (list 5800 6000 6100 8300) (list 5800 6100 5900 7200) (list 5800 6100 5900 8400) (list 5800 6100 7100 7200) (list 5800 6100 7100 8400) (list 5800 6100 6000 7100) (list 5800 6100 6000 8300) (list 5800 6100 7200 7100) (list 5800 6100 7200 8300) (list 5800 6000 6200 7600) (list 5800 6000 6400 7400) (list 5800 6200 6000 7600) (list 5800 6200 7200 7600) (list 5800 6200 6400 7200) (list 5800 6200 6400 8400) (list 5800 6400 6000 7400) (list 5800 6400 7200 7400) (list 5800 6400 6200 7200) (list 5800 6400 6200 8400))) nil "harmon-database"))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((5 0 0 0 nil 0) (5 0 1 0 nil 0) (16 0 2 0 nil 0) (8 0 2 1 nil 0) (5 0 2 2 nil 0) (1 0 2 3 nil 0) (0 0 2 4 nil 0) (5 0 3 0 nil 0) (5 0 4 0 nil 0) (3 1 4 1 nil 0) (16 0 8 0 nil 0) (15 0 9 1 nil 0) (2 0 15 0 nil 0) (14 0 15 1 nil 0) (3 0 15 2 nil 0) (6 0 15 3 nil 0) (4 0 15 4 nil 0) (4 1 15 5 nil 0) (4 2 15 6 nil 0) (4 3 15 7 nil 0) (13 0 15 8 nil 0) (12 0 15 9 nil 0) (11 0 15 10 nil 0) (10 0 15 11 nil 0) (7 0 15 12 nil 0))) nil 7.02))
diff --git a/examples/04_utilities/get-score_2.omp b/examples/04_utilities/get-score_2.omp
index 2786754..12b938b 100644
--- a/examples/04_utilities/get-score_2.omp
+++ b/examples/04_utilities/get-score_2.omp
@@ -1,4 +1,4 @@
-; OM File Header - Saved 2023/11/20 18:35:56
-; (7.02 :patc (om-make-point 131 343) (om-make-point 50 50) (om-make-point 1260 779) "" 183 0 nil nil)
+; OM File Header - Saved 2023/12/09 18:23:13
+; (7.02 :patc (om-make-point 131 343) (om-make-point 50 50) (om-make-point 1260 779) "" 183 0 nil "2023/12/09 18:23:12")
; End File Header
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "get-score_2" (quote ((let ((box (om-load-editor-box1 "POLY" (quote poly) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "list of VOICE objects" "voices" (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (1 (((4 4) (1 1 1 1))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1000)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 60) nil)) :legato 100 :ties (quote (nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj))))) (om-make-point 410 393) (om-make-point 631 299) (if (find-class (quote poly) nil) (let ((newobj (make-instance (quote poly) :voices (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4.0)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2.0)) ((1 32) (1.0)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3.0)) ((4 8) (4)) ((2 8) (2.0)) ((3 16) (3.0)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1.0)) ((2 4) (2.0)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4.0 1.0)) ((3 32) (3.0)) ((4 4) (4)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3.0)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4.0 1.0)) ((4 16) (4.0)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3.0)) ((2 8) (2.0)) ((1 4) (1)) ((5 4) (4.0 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2.0)) ((5 8) (4.0 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4 1.0)) ((5 8) (4.0 1.0)) ((4 4) (4.0)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4.0)) ((2 2) (2.0)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4.0 1.0)) ((2 8) (2.0)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4 1.0)) ((5 4) (4.0 1.0)) ((4 16) (4.0)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4.0)) ((1 16) (1.0)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (900)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (75)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (112)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (38)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4.0 1.0)) ((4 8) (4.0)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4.0 1.0)) ((4 4) (4)) ((4 4) (4.0)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4.0)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4 1.0)) ((3 32) (3)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3)) ((1 4) (1.0)) ((2 2) (2.0)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3.0)) ((4 4) (4.0)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2)) ((5 8) (4.0 1.0)) ((5 16) (4.0 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2.0)) ((5 2) (4 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2.0)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2.0)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4)) ((1 16) (1)) ((2 2) (2.0)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (225)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (112)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (112)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (38)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (-1)) ((4 2) (4)) ((5 32) (-4 -1.0)) ((4 8) (4)) ((5 16) (-4 -1.0)) ((2 8) (-2)) ((2 8) (2)) ((5 8) (-4 -1.0)) ((2 4) (2)) ((1 32) (-1)) ((5 16) (4 1.0)) ((2 2) (-2)) ((4 4) (-4)) ((3 2) (3)) ((4 8) (-4)) ((2 8) (2)) ((3 16) (-3)) ((5 32) (4 1.0)) ((4 4) (-4)) ((4 4) (-4)) ((2 16) (2)) ((5 8) (-4 -1.0)) ((1 4) (1)) ((2 4) (-2)) ((4 32) (4)) ((4 2) (-4)) ((5 8) (-4 -1.0)) ((2 16) (2)) ((1 8) (-1)) ((5 2) (4 1.0)) ((3 32) (-3)) ((4 4) (4)) ((4 8) (-4)) ((5 4) (-4 -1.0)) ((2 8) (2)) ((2 4) (-2)) ((5 16) (4 1.0)) ((3 8) (-3)) ((1 4) (1)) ((2 2) (-2)) ((5 32) (-4 -1.0)) ((2 8) (2)) ((1 2) (-1)) ((5 32) (4 1.0)) ((4 16) (-4)) ((3 8) (3)) ((4 4) (-4)) ((5 4) (-4 -1.0)) ((4 2) (4)) ((2 32) (-2)) ((3 8) (3)) ((2 8) (-2)) ((1 4) (1)) ((5 4) (-4 -1.0)) ((4 16) (-4)) ((3 4) (3)) ((4 2) (-4)) ((2 4) (2)) ((5 8) (-4 -1.0)) ((5 16) (4 1.0)) ((1 8) (-1)) ((4 32) (-4)) ((2 8) (2)) ((5 2) (-4 -1.0)) ((5 8) (4 1.0)) ((4 4) (-4)) ((2 32) (2)) ((2 16) (-2)) ((1 4) (-1)) ((4 4) (4)) ((3 32) (-3)) ((4 16) (4)) ((2 2) (-2)) ((2 4) (2)) ((4 8) (-4)) ((3 8) (-3)) ((1 32) (1)) ((5 16) (-4 -1.0)) ((5 4) (4 1.0)) ((2 8) (-2)) ((2 4) (2)) ((4 2) (-4)) ((3 8) (-3)) ((1 4) (1)) ((5 2) (-4 -1.0)) ((5 4) (4 1.0)) ((4 16) (-4)) ((5 32) (4 1.0)) ((4 8) (-4)) ((2 8) (-2)) ((5 32) (4 1.0)) ((3 4) (-3)) ((4 4) (4)) ((1 16) (-1)) ((2 2) (2)) ((2 8) (-2)) ((2 8) (-2)) ((2 8) (2)) ((2 8) (-2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (900)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (2400)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4.0 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4.0 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1.0)) ((5 2) (4 1.0)) ((3 32) (3.0)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((5 16) (4 1.0)) ((3 8) (3)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1.0)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2.0)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4.0)) ((2 4) (2)) ((5 8) (4 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4.0 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3.0)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1.0)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3.0)) ((4 4) (4.0)) ((1 16) (1)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (3600)) :ldur (quote (900)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (38)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (1800)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (225)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (450)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (75)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) :from-file t))) (load-port-info newobj (quote (nil nil nil nil))) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) nil nil (pairlis (quote (scale show-stems cursor-mode obj-mode score-mode winpos winsize mode grillestep notechancolor? zoom player inport outport deltapict cmnpref staff fontsize approx)) (list nil (quote t) (quote :normal) 1 0 (om-make-point 206 27) (om-make-point 601 539) 0 1000 nil 1 (quote :midi-player) nil nil (om-make-point 0 0) (let ((newobj (make-instance (quote edition-values)))) (setf (paper-size newobj) (om-make-point 600 800)) (setf (top-margin newobj) 2) (setf (left-margin newobj) 1) (setf (right-margin newobj) 1) (setf (bottom-margin newobj) 1) (setf (orientation newobj) nil) (setf (scale newobj) nil) (setf (system-space newobj) (quote (2 2 2 2))) (setf (system-color newobj) (quote nil)) (setf (line-space newobj) 1) (setf (title newobj) nil) (setf (show-title? newobj) nil) (setf (show-page? newobj) nil) (setf (sheet-id newobj) nil) (setf (page-mode newobj) nil) newobj) (list (quote g) (quote g) (quote g) (quote g)) 24 2)) t nil nil nil (quote nil)))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch" (om-load-patch-abs1 "mypatch" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 302 307) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 408 238) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "PERMUT-RANDOM 3" (quote permut-random) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 312 142) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 291 206) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 291 103) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 278 155) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 312 61) (om-make-point 165 30) (list 20 100 30 120 75 10 40) "(20 100 30 120 75 10 40)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (4 0 2 0 nil 0) (7 0 3 0 nil 0) (3 0 4 0 nil 0) (6 0 4 1 nil 0) (7 0 5 0 nil 0) (1 0 6 0 nil 0) (5 0 6 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 1801/3 779/6) nil (list (list 30 40 10 20 75 120 100 75 100 30 20 10 120 40 30 40 20 120 10 100 75 40 10 120 75 100 20 30 40 120 75 10 100 20 30 10 40 120 100 30 75 20 30 20 10 75 40 120 100 100 30 75 10 20 120 40 30 10 20 75 120 100 40 10 20 120 100 40 75 30 75 40 30 120 100 20 10 75 30 10 20 40 100 120 100 40 75 120 20 10 30 75 120 10 40 20 30 100)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch" (om-load-patch-abs1 "mypatch" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 302 307) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 408 238) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "PERMUT-RANDOM 3" (quote permut-random) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 312 142) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 249 213) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 291 103) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 227 128) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 312 61) (om-make-point 116 30) (list 4 8 16 32 4 2 8) "(4 8 16 32 4 2 8)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (4 0 2 0 nil 0) (7 0 3 0 nil 0) (3 0 4 0 nil 0) (6 0 4 1 nil 0) (7 0 5 0 nil 0) (1 0 6 0 nil 0) (5 0 6 1 nil 0))) 7.02 nil "" (om-make-point 137 320) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 1552/3 821/6) nil (list (list 4 4 2 32 8 16 8 8 8 4 32 16 2 4 2 8 8 16 32 4 4 16 8 4 4 32 2 8 16 8 2 32 4 8 4 8 4 16 8 4 2 32 8 2 32 16 8 4 4 2 32 8 8 4 4 16 4 2 4 8 16 8 32 8 2 8 4 32 16 4 4 32 16 2 4 8 8 32 16 4 8 4 2 8 4 2 4 16 32 8 8 32 4 4 16 2 8 8)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "mypatch" (om-load-patch-abs1 "mypatch" (quote ((let ((box (om-load-boxout "output" 0 (om-make-point 302 307) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 408 238) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "PERMUT-RANDOM 3" (quote permut-random) (quote ((om-load-inputfun (quote input-funbox) "a list" "LIST" nil))) (om-make-point 312 142) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 291 206) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 291 103) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 278 155) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 312 61) (om-make-point 113 30) (list 4 5 1 2 3 5 4 2) "(4 5 1 2 3 5 4 2)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (4 0 2 0 nil 0) (7 0 3 0 nil 0) (3 0 4 0 nil 0) (6 0 4 1 nil 0) (7 0 5 0 nil 0) (1 0 6 0 nil 0) (5 0 6 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 533 432)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 1312/3 761/6) nil (list (list 3 1 4 5 4 5 2 2 5 2 1 5 2 4 3 4 2 3 5 4 4 2 5 1 2 4 4 5 2 1 5 3 4 4 5 2 2 5 3 1 2 5 2 1 5 4 3 4 5 4 2 3 2 1 5 4 3 4 2 5 5 1 4 2 5 5 4 2 2 1 4 3 4 2 2 4 3 1 5 5 2 2 4 3 1 5 5 4 5 4 2 5 3 4 1 2)) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 413 249) (om-make-point 41 30) 200 "200" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "harmon-database" (om-load-patch-abs1 "harmon-database" (quote ((let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE 2" (quote omlead::harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr2" (quote :instr2) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr3" (quote :instr3) nil nil) (om-load-inputkeyword (quote input-keyword) "range-list with the lowest and highest note of the instrument in midi-cents" "instr4" (quote :instr4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "register-list" (quote :register-list) nil nil))) (om-make-point 128 248) nil (list (list (list 3600 5000 6300 8500) (list 3600 6200 6300 8500) (list 4800 5000 6300 8500) (list 4800 6200 6300 8500) (list 3600 5100 6200 8500) (list 3600 6300 6200 8500) (list 4800 5100 6200 8500) (list 4800 6300 6200 8500) (list 3700 5000 6300 8400) (list 3700 6200 6300 8400) (list 4900 5000 6300 8400) (list 4900 6200 6300 8400) (list 3700 5100 6200 8400) (list 3700 6300 6200 8400) (list 4900 5100 6200 8400) (list 4900 6300 6200 8400) (list 3800 4800 6300 8500) (list 3800 6000 6300 8500) (list 5000 4800 6300 8500) (list 5000 6000 6300 8500) (list 3800 4900 6300 8400) (list 3800 6100 6300 8400) (list 5000 4900 6300 8400) (list 5000 6100 6300 8400) (list 3800 5100 6000 8500) (list 3800 6300 6000 8500) (list 5000 5100 6000 8500) (list 5000 6300 6000 8500) (list 3800 5100 6100 8400) (list 3800 6300 6100 8400) (list 5000 5100 6100 8400) (list 5000 6300 6100 8400) (list 3900 4800 6200 8500) (list 3900 6000 6200 8500) (list 5100 4800 6200 8500) (list 5100 6000 6200 8500) (list 3900 4900 6200 8400) (list 3900 6100 6200 8400) (list 5100 4900 6200 8400) (list 5100 6100 6200 8400) (list 3900 5000 6000 8500) (list 3900 6200 6000 8500) (list 5100 5000 6000 8500) (list 5100 6200 6000 8500) (list 3900 5000 6100 8400) (list 3900 6200 6100 8400) (list 5100 5000 6100 8400) (list 5100 6200 6100 8400) (list 3800 5200 6600 8400) (list 3800 6400 6600 8400) (list 5000 5200 6600 8400) (list 5000 6400 6600 8400) (list 3800 5400 6400 8400) (list 3800 6600 6400 8400) (list 5000 5400 6400 8400) (list 5000 6600 6400 8400) (list 4000 5000 6600 8400) (list 4000 6200 6600 8400) (list 5200 5000 6600 8400) (list 5200 6200 6600 8400) (list 4000 5400 6200 8400) (list 4000 6600 6200 8400) (list 5200 5400 6200 8400) (list 5200 6600 6200 8400) (list 4200 5000 6400 8400) (list 4200 6200 6400 8400) (list 5400 5000 6400 8400) (list 5400 6200 6400 8400) (list 4200 5200 6200 8400) (list 4200 6400 6200 8400) (list 5400 5200 6200 8400) (list 5400 6400 6200 8400) (list 3800 5100 6400 8500) (list 3800 6300 6400 8500) (list 5000 5100 6400 8500) (list 5000 6300 6400 8500) (list 3800 5200 6300 8500) (list 3800 6400 6300 8500) (list 5000 5200 6300 8500) (list 5000 6400 6300 8500) (list 3900 5000 6400 8500) (list 3900 6200 6400 8500) (list 5100 5000 6400 8500) (list 5100 6200 6400 8500) (list 3900 5200 6200 8500) (list 3900 6400 6200 8500) (list 5100 5200 6200 8500) (list 5100 6400 6200 8500) (list 4000 5000 6300 8500) (list 4000 6200 6300 8500) (list 5200 5000 6300 8500) (list 5200 6200 6300 8500) (list 4000 5100 6200 8500) (list 4000 6300 6200 8500) (list 5200 5100 6200 8500) (list 5200 6300 6200 8500) (list 3900 5300 6700 8500) (list 3900 6500 6700 8500) (list 5100 5300 6700 8500) (list 5100 6500 6700 8500) (list 3900 5500 6500 8500) (list 3900 6700 6500 8500) (list 5100 5500 6500 8500) (list 5100 6700 6500 8500) (list 4100 5100 6700 8500) (list 4100 6300 6700 8500) (list 5300 5100 6700 8500) (list 5300 6300 6700 8500) (list 4100 5500 6300 8500) (list 4100 6700 6300 8500) (list 5300 5500 6300 8500) (list 5300 6700 6300 8500) (list 4300 5100 6500 8500) (list 4300 6300 6500 8500) (list 5500 5100 6500 8500) (list 5500 6300 6500 8500) (list 4300 5300 6300 8500) (list 4300 6500 6300 8500) (list 5500 5300 6300 8500) (list 5500 6500 6300 8500) (list 3800 5200 6600 6800) (list 3800 6400 6600 6800) (list 3800 5400 6400 6800) (list 3800 6600 6400 6800) (list 4000 5000 6600 6800) (list 4000 6200 6600 6800) (list 4000 5400 6200 6800) (list 4000 6600 6200 6800) (list 4200 5000 6400 6800) (list 4200 6200 6400 6800) (list 4200 5200 6200 6800) (list 4200 6400 6200 6800) (list 3900 5300 6700 6900) (list 3900 6500 6700 6900) (list 3900 5500 6500 6900) (list 3900 6700 6500 6900) (list 4100 5100 6700 6900) (list 4100 6300 6700 6900) (list 4100 5500 6300 6900) (list 4100 6700 6300 6900) (list 4300 5100 6500 6900) (list 4300 6300 6500 6900) (list 4300 5300 6300 6900) (list 4300 6500 6300 6900) (list 4000 5400 6800 7000) (list 4000 6600 6800 7000) (list 4000 5400 5800 6800) (list 4000 5400 7000 6800) (list 4000 6600 5800 6800) (list 4000 6600 7000 6800) (list 4000 5600 6600 7000) (list 4000 5800 6600 6800) (list 4200 5200 6800 7000) (list 4200 6400 6800 7000) (list 4200 5200 5800 6800) (list 4200 5200 7000 6800) (list 4200 6400 5800 6800) (list 4200 6400 7000 6800) (list 4200 5600 6400 7000) (list 4200 5800 6400 6800) (list 4400 5200 6600 7000) (list 4400 6400 6600 7000) (list 4400 5400 6400 7000) (list 4400 6600 6400 7000) (list 4600 5200 6600 6800) (list 4600 6400 6600 6800) (list 4600 5400 6400 6800) (list 4600 6600 6400 6800) (list 4100 5400 6700 6800) (list 4100 6600 6700 6800) (list 4100 5500 6600 6800) (list 4100 6700 6600 6800) (list 4200 5300 6700 6800) (list 4200 6500 6700 6800) (list 4200 5500 6500 6800) (list 4200 6700 6500 6800) (list 4300 5300 6600 6800) (list 4300 6500 6600 6800) (list 4300 5400 6500 6800) (list 4300 6600 6500 6800) (list 4100 5500 5700 7100) (list 4100 5500 6900 7100) (list 4100 6700 5700 7100) (list 4100 6700 6900 7100) (list 4100 5500 5900 6900) (list 4100 5500 7100 6900) (list 4100 6700 5900 6900) (list 4100 6700 7100 6900) (list 4100 5700 6700 7100) (list 4100 5900 6700 6900) (list 4300 5300 5700 7100) (list 4300 5300 6900 7100) (list 4300 6500 5700 7100) (list 4300 6500 6900 7100) (list 4300 5300 5900 6900) (list 4300 5300 7100 6900) (list 4300 6500 5900 6900) (list 4300 6500 7100 6900) (list 4300 5700 6500 7100) (list 4300 5900 6500 6900) (list 4500 5300 6700 7100) (list 4500 6500 6700 7100) (list 4500 5500 6500 7100) (list 4500 6700 6500 7100) (list 4700 5300 6700 6900) (list 4700 6500 6700 6900) (list 4700 5500 6500 6900) (list 4700 6700 6500 6900) (list 4200 5500 6800 6900) (list 4200 6700 6800 6900) (list 4200 5500 5700 6800) (list 4200 5500 6900 6800) (list 4200 6700 5700 6800) (list 4200 6700 6900 6800) (list 4200 5600 6700 6900) (list 4200 5700 6700 6800) (list 4300 5400 6800 6900) (list 4300 6600 6800 6900) (list 4300 5400 5700 6800) (list 4300 5400 6900 6800) (list 4300 6600 5700 6800) (list 4300 6600 6900 6800) (list 4300 5600 6600 6900) (list 4300 5700 6600 6800) (list 4400 5400 6700 6900) (list 4400 6600 6700 6900) (list 4400 5500 6600 6900) (list 4400 6700 6600 6900) (list 4500 5400 6700 6800) (list 4500 6600 6700 6800) (list 4500 5500 6600 6800) (list 4500 6700 6600 6800) (list 4200 5600 5800 7200) (list 4200 5600 7000 7200) (list 4200 5600 6000 7000) (list 4200 5600 7200 7000) (list 4200 5800 6800 7200) (list 4200 5800 6000 6800) (list 4200 5800 7200 6800) (list 4200 4800 6800 7000) (list 4200 6000 6800 7000) (list 5400 4800 6800 7000) (list 4200 4800 5800 6800) (list 4200 4800 7000 6800) (list 4200 6000 5800 6800) (list 4200 6000 7000 6800) (list 5400 4800 5800 6800) (list 5400 4800 7000 6800) (list 4400 5400 5800 7200) (list 4400 5400 7000 7200) (list 4400 6600 5800 7200) (list 4400 6600 7000 7200) (list 4400 5400 6000 7000) (list 4400 5400 7200 7000) (list 4400 6600 6000 7000) (list 4400 6600 7200 7000) (list 4400 5800 6600 7200) (list 4400 4800 6600 7000) (list 4400 6000 6600 7000) (list 5600 4800 6600 7000) (list 4600 5400 6800 7200) (list 4600 6600 6800 7200) (list 4600 5400 6000 6800) (list 4600 5400 7200 6800) (list 4600 6600 6000 6800) (list 4600 6600 7200 6800) (list 4600 5600 6600 7200) (list 4600 4800 6600 6800) (list 4600 6000 6600 6800) (list 5800 4800 6600 6800) (list 4800 5400 6800 7000) (list 4800 6600 6800 7000) (list 4800 5400 5800 6800) (list 4800 5400 7000 6800) (list 4800 6600 5800 6800) (list 4800 6600 7000 6800) (list 4800 5600 6600 7000) (list 4800 5800 6600 6800) (list 4300 5600 5700 7000) (list 4300 5600 6900 7000) (list 4300 5600 5800 6900) (list 4300 5600 7000 6900) (list 4300 5700 6800 7000) (list 4300 5700 5800 6800) (list 4300 5700 7000 6800) (list 4300 5800 6800 6900) (list 4300 5800 5700 6800) (list 4300 5800 6900 6800) (list 4400 5500 5700 7000) (list 4400 5500 6900 7000) (list 4400 6700 5700 7000) (list 4400 6700 6900 7000) (list 4400 5500 5800 6900) (list 4400 5500 7000 6900) (list 4400 6700 5800 6900) (list 4400 6700 7000 6900) (list 4400 5700 6700 7000) (list 4400 5800 6700 6900) (list 4500 5500 6800 7000) (list 4500 6700 6800 7000) (list 4500 5500 5800 6800) (list 4500 5500 7000 6800) (list 4500 6700 5800 6800) (list 4500 6700 7000 6800) (list 4500 5600 6700 7000) (list 4500 5800 6700 6800) (list 4600 5500 6800 6900) (list 4600 6700 6800 6900) (list 4600 5500 5700 6800) (list 4600 5500 6900 6800) (list 4600 6700 5700 6800) (list 4600 6700 6900 6800) (list 4600 5600 6700 6900) (list 4600 5700 6700 6800) (list 4300 5700 5900 7300) (list 4300 5700 7100 7300) (list 4300 5700 6100 7100) (list 4300 5900 5700 7300) (list 4300 5900 6900 7300) (list 4300 5900 6100 6900) (list 4300 4900 5700 7100) (list 4300 4900 6900 7100) (list 4300 6100 5700 7100) (list 4300 6100 6900 7100) (list 5500 4900 5700 7100) (list 5500 4900 6900 7100) (list 4300 4900 5900 6900) (list 4300 4900 7100 6900) (list 4300 6100 5900 6900) (list 4300 6100 7100 6900) (list 5500 4900 5900 6900) (list 5500 4900 7100 6900) (list 4500 5500 5900 7300) (list 4500 5500 7100 7300) (list 4500 6700 5900 7300) (list 4500 6700 7100 7300) (list 4500 5500 6100 7100) (list 4500 6700 6100 7100) (list 4500 5900 6700 7300) (list 4500 4900 6700 7100) (list 4500 6100 6700 7100) (list 5700 4900 6700 7100) (list 4700 5500 5700 7300) (list 4700 5500 6900 7300) (list 4700 6700 5700 7300) (list 4700 6700 6900 7300) (list 4700 5500 6100 6900) (list 4700 6700 6100 6900) (list 4700 5700 6700 7300) (list 4700 4900 6700 6900) (list 4700 6100 6700 6900) (list 4900 5500 5700 7100) (list 4900 5500 6900 7100) (list 4900 6700 5700 7100) (list 4900 6700 6900 7100) (list 4900 5500 5900 6900) (list 4900 5500 7100 6900) (list 4900 6700 5900 6900) (list 4900 6700 7100 6900) (list 4900 5700 6700 7100) (list 4900 5900 6700 6900) (list 4400 5700 5800 7100) (list 4400 5700 7000 7100) (list 4400 5700 5900 7000) (list 4400 5700 7100 7000) (list 4400 5800 5700 7100) (list 4400 5800 6900 7100) (list 4400 5800 5900 6900) (list 4400 5800 7100 6900) (list 4400 5900 5700 7000) (list 4400 5900 6900 7000) (list 4400 5900 5800 6900) (list 4400 5900 7000 6900) (list 4500 5600 5800 7100) (list 4500 5600 7000 7100) (list 4500 5600 5900 7000) (list 4500 5600 7100 7000) (list 4500 5800 6800 7100) (list 4500 5800 5900 6800) (list 4500 5800 7100 6800) (list 4500 5900 6800 7000) (list 4500 5900 5800 6800) (list 4500 5900 7000 6800) (list 4600 5600 5700 7100) (list 4600 5600 6900 7100) (list 4600 5600 5900 6900) (list 4600 5600 7100 6900) (list 4600 5700 6800 7100) (list 4600 5700 5900 6800) (list 4600 5700 7100 6800) (list 4600 5900 6800 6900) (list 4600 5900 5700 6800) (list 4600 5900 6900 6800) (list 4700 5600 5700 7000) (list 4700 5600 6900 7000) (list 4700 5600 5800 6900) (list 4700 5600 7000 6900) (list 4700 5700 6800 7000) (list 4700 5700 5800 6800) (list 4700 5700 7000 6800) (list 4700 5800 6800 6900) (list 4700 5800 5700 6800) (list 4700 5800 6900 6800) (list 4400 5800 6000 7400) (list 4400 5800 7200 7400) (list 4400 5800 6200 7200) (list 4400 4800 5800 7400) (list 4400 4800 7000 7400) (list 4400 6000 5800 7400) (list 4400 6000 7000 7400) (list 5600 4800 5800 7400) (list 5600 4800 7000 7400) (list 4400 4800 6200 7000) (list 4400 6000 6200 7000) (list 5600 4800 6200 7000) (list 4400 5000 5800 7200) (list 4400 5000 7000 7200) (list 4400 6200 5800 7200) (list 4400 6200 7000 7200) (list 5600 5000 5800 7200) (list 5600 5000 7000 7200) (list 4400 5000 6000 7000) (list 4400 5000 7200 7000) (list 4400 6200 6000 7000) (list 4400 6200 7200 7000) (list 5600 5000 6000 7000) (list 5600 5000 7200 7000) (list 4600 5600 6000 7400) (list 4600 5600 7200 7400) (list 4600 5600 6200 7200) (list 4600 4800 6800 7400) (list 4600 6000 6800 7400) (list 5800 4800 6800 7400) (list 4600 4800 6200 6800) (list 4600 6000 6200 6800) (list 5800 4800 6200 6800) (list 4600 5000 6800 7200) (list 4600 6200 6800 7200) (list 5800 5000 6800 7200) (list 4600 5000 6000 6800) (list 4600 5000 7200 6800) (list 4600 6200 6000 6800) (list 4600 6200 7200 6800) (list 5800 5000 6000 6800) (list 5800 5000 7200 6800) (list 4800 5600 5800 7400) (list 4800 5600 7000 7400) (list 4800 5600 6200 7000) (list 4800 5800 6800 7400) (list 4800 5800 6200 6800) (list 4800 5000 6800 7000) (list 4800 6200 6800 7000) (list 4800 5000 5800 6800) (list 4800 5000 7000 6800) (list 4800 6200 5800 6800) (list 4800 6200 7000 6800) (list 5000 5600 5800 7200) (list 5000 5600 7000 7200) (list 5000 5600 6000 7000) (list 5000 5600 7200 7000) (list 5000 5800 6800 7200) (list 5000 5800 6000 6800) (list 5000 5800 7200 6800) (list 5000 4800 6800 7000) (list 5000 6000 6800 7000) (list 5000 4800 5800 6800) (list 5000 4800 7000 6800) (list 5000 6000 5800 6800) (list 5000 6000 7000 6800) (list 4500 5800 5900 7200) (list 4500 5800 7100 7200) (list 4500 5800 6000 7100) (list 4500 5800 7200 7100) (list 4500 5900 5800 7200) (list 4500 5900 7000 7200) (list 4500 5900 6000 7000) (list 4500 5900 7200 7000) (list 4500 4800 5800 7100) (list 4500 4800 7000 7100) (list 4500 6000 5800 7100) (list 4500 6000 7000 7100) (list 5700 4800 5800 7100) (list 5700 4800 7000 7100) (list 4500 4800 5900 7000) (list 4500 4800 7100 7000) (list 4500 6000 5900 7000) (list 4500 6000 7100 7000) (list 5700 4800 5900 7000) (list 5700 4800 7100 7000) (list 4600 5700 5900 7200) (list 4600 5700 7100 7200) (list 4600 5700 6000 7100) (list 4600 5700 7200 7100) (list 4600 5900 5700 7200) (list 4600 5900 6900 7200) (list 4600 5900 6000 6900) (list 4600 5900 7200 6900) (list 4600 4800 5700 7100) (list 4600 4800 6900 7100) (list 4600 6000 5700 7100) (list 4600 6000 6900 7100) (list 5800 4800 5700 7100) (list 5800 4800 6900 7100) (list 4600 4800 5900 6900) (list 4600 4800 7100 6900) (list 4600 6000 5900 6900) (list 4600 6000 7100 6900) (list 5800 4800 5900 6900) (list 5800 4800 7100 6900) (list 4700 5700 5800 7200) (list 4700 5700 7000 7200) (list 4700 5700 6000 7000) (list 4700 5700 7200 7000) (list 4700 5800 5700 7200) (list 4700 5800 6900 7200) (list 4700 5800 6000 6900) (list 4700 5800 7200 6900) (list 4700 4800 5700 7000) (list 4700 4800 6900 7000) (list 4700 6000 5700 7000) (list 4700 6000 6900 7000) (list 4700 4800 5800 6900) (list 4700 4800 7000 6900) (list 4700 6000 5800 6900) (list 4700 6000 7000 6900) (list 4800 5700 5800 7100) (list 4800 5700 7000 7100) (list 4800 5700 5900 7000) (list 4800 5700 7100 7000) (list 4800 5800 5700 7100) (list 4800 5800 6900 7100) (list 4800 5800 5900 6900) (list 4800 5800 7100 6900) (list 4800 5900 5700 7000) (list 4800 5900 6900 7000) (list 4800 5900 5800 6900) (list 4800 5900 7000 6900) (list 4500 5900 6100 7500) (list 4500 5900 6300 7300) (list 4500 4900 5900 7500) (list 4500 4900 7100 7500) (list 4500 6100 5900 7500) (list 4500 6100 7100 7500) (list 5700 4900 5900 7500) (list 5700 4900 7100 7500) (list 4500 4900 6300 7100) (list 4500 6100 6300 7100) (list 5700 4900 6300 7100) (list 4500 5100 5900 7300) (list 4500 5100 7100 7300) (list 4500 6300 5900 7300) (list 4500 6300 7100 7300) (list 5700 5100 5900 7300) (list 5700 5100 7100 7300) (list 4500 5100 6100 7100) (list 4500 6300 6100 7100) (list 5700 5100 6100 7100) (list 4700 5700 6100 7500) (list 4700 5700 6300 7300) (list 4700 4900 5700 7500) (list 4700 4900 6900 7500) (list 4700 6100 5700 7500) (list 4700 6100 6900 7500) (list 4700 4900 6300 6900) (list 4700 6100 6300 6900) (list 4700 5100 5700 7300) (list 4700 5100 6900 7300) (list 4700 6300 5700 7300) (list 4700 6300 6900 7300) (list 4700 5100 6100 6900) (list 4700 6300 6100 6900) (list 4900 5700 5900 7500) (list 4900 5700 7100 7500) (list 4900 5700 6300 7100) (list 4900 5900 5700 7500) (list 4900 5900 6900 7500) (list 4900 5900 6300 6900) (list 4900 5100 5700 7100) (list 4900 5100 6900 7100) (list 4900 6300 5700 7100) (list 4900 6300 6900 7100) (list 4900 5100 5900 6900) (list 4900 5100 7100 6900) (list 4900 6300 5900 6900) (list 4900 6300 7100 6900) (list 5100 5700 5900 7300) (list 5100 5700 7100 7300) (list 5100 5700 6100 7100) (list 5100 5900 5700 7300) (list 5100 5900 6900 7300) (list 5100 5900 6100 6900) (list 5100 4900 5700 7100) (list 5100 4900 6900 7100) (list 5100 6100 5700 7100) (list 5100 6100 6900 7100) (list 5100 4900 5900 6900) (list 5100 4900 7100 6900) (list 5100 6100 5900 6900) (list 5100 6100 7100 6900) (list 4600 5900 6000 7300) (list 4600 5900 7200 7300) (list 4600 5900 6100 7200) (list 4600 4800 5900 7300) (list 4600 4800 7100 7300) (list 4600 6000 5900 7300) (list 4600 6000 7100 7300) (list 5800 4800 5900 7300) (list 5800 4800 7100 7300) (list 4600 4800 6100 7100) (list 4600 6000 6100 7100) (list 5800 4800 6100 7100) (list 4600 4900 5900 7200) (list 4600 4900 7100 7200) (list 4600 6100 5900 7200) (list 4600 6100 7100 7200) (list 5800 4900 5900 7200) (list 5800 4900 7100 7200) (list 4600 4900 6000 7100) (list 4600 4900 7200 7100) (list 4600 6100 6000 7100) (list 4600 6100 7200 7100) (list 5800 4900 6000 7100) (list 5800 4900 7200 7100) (list 4700 5800 6000 7300) (list 4700 5800 7200 7300) (list 4700 5800 6100 7200) (list 4700 4800 5800 7300) (list 4700 4800 7000 7300) (list 4700 6000 5800 7300) (list 4700 6000 7000 7300) (list 4700 4800 6100 7000) (list 4700 6000 6100 7000) (list 4700 4900 5800 7200) (list 4700 4900 7000 7200) (list 4700 6100 5800 7200) (list 4700 6100 7000 7200) (list 4700 4900 6000 7000) (list 4700 4900 7200 7000) (list 4700 6100 6000 7000) (list 4700 6100 7200 7000) (list 4800 5800 5900 7300) (list 4800 5800 7100 7300) (list 4800 5800 6100 7100) (list 4800 5900 5800 7300) (list 4800 5900 7000 7300) (list 4800 5900 6100 7000) (list 4800 4900 5800 7100) (list 4800 4900 7000 7100) (list 4800 6100 5800 7100) (list 4800 6100 7000 7100) (list 4800 4900 5900 7000) (list 4800 4900 7100 7000) (list 4800 6100 5900 7000) (list 4800 6100 7100 7000) (list 4900 5800 5900 7200) (list 4900 5800 7100 7200) (list 4900 5800 6000 7100) (list 4900 5800 7200 7100) (list 4900 5900 5800 7200) (list 4900 5900 7000 7200) (list 4900 5900 6000 7000) (list 4900 5900 7200 7000) (list 4900 4800 5800 7100) (list 4900 4800 7000 7100) (list 4900 6000 5800 7100) (list 4900 6000 7000 7100) (list 4900 4800 5900 7000) (list 4900 4800 7100 7000) (list 4900 6000 5900 7000) (list 4900 6000 7100 7000) (list 4600 4800 6200 7600) (list 4600 6000 6200 7600) (list 5800 4800 6200 7600) (list 4600 4800 6400 7400) (list 4600 6000 6400 7400) (list 5800 4800 6400 7400) (list 4600 5000 6000 7600) (list 4600 5000 7200 7600) (list 4600 6200 6000 7600) (list 4600 6200 7200 7600) (list 5800 5000 6000 7600) (list 5800 5000 7200 7600) (list 4600 5000 6400 7200) (list 4600 6200 6400 7200) (list 5800 5000 6400 7200) (list 4600 5200 6000 7400) (list 4600 5200 7200 7400) (list 4600 6400 6000 7400) (list 4600 6400 7200 7400) (list 5800 5200 6000 7400) (list 5800 5200 7200 7400) (list 4600 5200 6200 7200) (list 4600 6400 6200 7200) (list 5800 5200 6200 7200) (list 4800 5800 6200 7600) (list 4800 5800 6400 7400) (list 4800 5000 5800 7600) (list 4800 5000 7000 7600) (list 4800 6200 5800 7600) (list 4800 6200 7000 7600) (list 4800 5000 6400 7000) (list 4800 6200 6400 7000) (list 4800 5200 5800 7400) (list 4800 5200 7000 7400) (list 4800 6400 5800 7400) (list 4800 6400 7000 7400) (list 4800 5200 6200 7000) (list 4800 6400 6200 7000) (list 5000 5800 6000 7600) (list 5000 5800 7200 7600) (list 5000 5800 6400 7200) (list 5000 4800 5800 7600) (list 5000 4800 7000 7600) (list 5000 6000 5800 7600) (list 5000 6000 7000 7600) (list 5000 4800 6400 7000) (list 5000 6000 6400 7000) (list 5000 5200 5800 7200) (list 5000 5200 7000 7200) (list 5000 6400 5800 7200) (list 5000 6400 7000 7200) (list 5000 5200 6000 7000) (list 5000 5200 7200 7000) (list 5000 6400 6000 7000) (list 5000 6400 7200 7000) (list 5200 5800 6000 7400) (list 5200 5800 7200 7400) (list 5200 5800 6200 7200) (list 5200 4800 5800 7400) (list 5200 4800 7000 7400) (list 5200 6000 5800 7400) (list 5200 6000 7000 7400) (list 5200 4800 6200 7000) (list 5200 6000 6200 7000) (list 5200 5000 5800 7200) (list 5200 5000 7000 7200) (list 5200 6200 5800 7200) (list 5200 6200 7000 7200) (list 5200 5000 6000 7000) (list 5200 5000 7200 7000) (list 5200 6200 6000 7000) (list 5200 6200 7200 7000) (list 4700 4800 6100 7400) (list 4700 6000 6100 7400) (list 4700 4800 6200 7300) (list 4700 6000 6200 7300) (list 4700 4900 6000 7400) (list 4700 4900 7200 7400) (list 4700 6100 6000 7400) (list 4700 6100 7200 7400) (list 4700 4900 6200 7200) (list 4700 6100 6200 7200) (list 4700 5000 6000 7300) (list 4700 5000 7200 7300) (list 4700 6200 6000 7300) (list 4700 6200 7200 7300) (list 4700 5000 6100 7200) (list 4700 6200 6100 7200) (list 4800 5900 6100 7400) (list 4800 5900 6200 7300) (list 4800 4900 5900 7400) (list 4800 4900 7100 7400) (list 4800 6100 5900 7400) (list 4800 6100 7100 7400) (list 4800 4900 6200 7100) (list 4800 6100 6200 7100) (list 4800 5000 5900 7300) (list 4800 5000 7100 7300) (list 4800 6200 5900 7300) (list 4800 6200 7100 7300) (list 4800 5000 6100 7100) (list 4800 6200 6100 7100) (list 4900 5900 6000 7400) (list 4900 5900 7200 7400) (list 4900 5900 6200 7200) (list 4900 4800 5900 7400) (list 4900 4800 7100 7400) (list 4900 6000 5900 7400) (list 4900 6000 7100 7400) (list 4900 4800 6200 7100) (list 4900 6000 6200 7100) (list 4900 5000 5900 7200) (list 4900 5000 7100 7200) (list 4900 6200 5900 7200) (list 4900 6200 7100 7200) (list 4900 5000 6000 7100) (list 4900 5000 7200 7100) (list 4900 6200 6000 7100) (list 4900 6200 7200 7100) (list 5000 5900 6000 7300) (list 5000 5900 7200 7300) (list 5000 5900 6100 7200) (list 5000 4800 5900 7300) (list 5000 4800 7100 7300) (list 5000 6000 5900 7300) (list 5000 6000 7100 7300) (list 5000 4800 6100 7100) (list 5000 6000 6100 7100) (list 5000 4900 5900 7200) (list 5000 4900 7100 7200) (list 5000 6100 5900 7200) (list 5000 6100 7100 7200) (list 5000 4900 6000 7100) (list 5000 4900 7200 7100) (list 5000 6100 6000 7100) (list 5000 6100 7200 7100) (list 4700 4900 6300 7700) (list 4700 6100 6300 7700) (list 4700 4900 6500 7500) (list 4700 6100 6500 7500) (list 4700 5100 6100 7700) (list 4700 6300 6100 7700) (list 4700 5100 6500 7300) (list 4700 6300 6500 7300) (list 4700 5300 6100 7500) (list 4700 6500 6100 7500) (list 4700 5300 6300 7300) (list 4700 6500 6300 7300) (list 4900 5900 6300 7700) (list 4900 5900 6500 7500) (list 4900 5100 5900 7700) (list 4900 5100 7100 7700) (list 4900 6300 5900 7700) (list 4900 6300 7100 7700) (list 4900 5100 6500 7100) (list 4900 6300 6500 7100) (list 4900 5300 5900 7500) (list 4900 5300 7100 7500) (list 4900 6500 5900 7500) (list 4900 6500 7100 7500) (list 4900 5300 6300 7100) (list 4900 6500 6300 7100) (list 5100 5900 6100 7700) (list 5100 5900 6500 7300) (list 5100 4900 5900 7700) (list 5100 4900 7100 7700) (list 5100 6100 5900 7700) (list 5100 6100 7100 7700) (list 5100 4900 6500 7100) (list 5100 6100 6500 7100) (list 5100 5300 5900 7300) (list 5100 5300 7100 7300) (list 5100 6500 5900 7300) (list 5100 6500 7100 7300) (list 5100 5300 6100 7100) (list 5100 6500 6100 7100) (list 5300 5900 6100 7500) (list 5300 5900 6300 7300) (list 5300 4900 5900 7500) (list 5300 4900 7100 7500) (list 5300 6100 5900 7500) (list 5300 6100 7100 7500) (list 5300 4900 6300 7100) (list 5300 6100 6300 7100) (list 5300 5100 5900 7300) (list 5300 5100 7100 7300) (list 5300 6300 5900 7300) (list 5300 6300 7100 7300) (list 5300 5100 6100 7100) (list 5300 6300 6100 7100) (list 4800 4900 6200 7500) (list 4800 6100 6200 7500) (list 4800 4900 6300 7400) (list 4800 6100 6300 7400) (list 4800 5000 6100 7500) (list 4800 6200 6100 7500) (list 4800 5000 6300 7300) (list 4800 6200 6300 7300) (list 4800 5100 6100 7400) (list 4800 6300 6100 7400) (list 4800 5100 6200 7300) (list 4800 6300 6200 7300) (list 4900 4800 6200 7500) (list 4900 6000 6200 7500) (list 4900 4800 6300 7400) (list 4900 6000 6300 7400) (list 4900 5000 6000 7500) (list 4900 5000 7200 7500) (list 4900 6200 6000 7500) (list 4900 6200 7200 7500) (list 4900 5000 6300 7200) (list 4900 6200 6300 7200) (list 4900 5100 6000 7400) (list 4900 5100 7200 7400) (list 4900 6300 6000 7400) (list 4900 6300 7200 7400) (list 4900 5100 6200 7200) (list 4900 6300 6200 7200) (list 5000 4800 6100 7500) (list 5000 6000 6100 7500) (list 5000 4800 6300 7300) (list 5000 6000 6300 7300) (list 5000 4900 6000 7500) (list 5000 4900 7200 7500) (list 5000 6100 6000 7500) (list 5000 6100 7200 7500) (list 5000 4900 6300 7200) (list 5000 6100 6300 7200) (list 5000 5100 6000 7300) (list 5000 5100 7200 7300) (list 5000 6300 6000 7300) (list 5000 6300 7200 7300) (list 5000 5100 6100 7200) (list 5000 6300 6100 7200) (list 5100 4800 6100 7400) (list 5100 6000 6100 7400) (list 5100 4800 6200 7300) (list 5100 6000 6200 7300) (list 5100 4900 6000 7400) (list 5100 4900 7200 7400) (list 5100 6100 6000 7400) (list 5100 6100 7200 7400) (list 5100 4900 6200 7200) (list 5100 6100 6200 7200) (list 5100 5000 6000 7300) (list 5100 5000 7200 7300) (list 5100 6200 6000 7300) (list 5100 6200 7200 7300) (list 5100 5000 6100 7200) (list 5100 6200 6100 7200) (list 4800 5000 6400 7800) (list 4800 6200 6400 7800) (list 4800 5000 6600 7600) (list 4800 6200 6600 7600) (list 4800 5200 6200 7800) (list 4800 6400 6200 7800) (list 4800 5200 6600 7400) (list 4800 6400 6600 7400) (list 4800 5400 6200 7600) (list 4800 6600 6200 7600) (list 4800 5400 6400 7400) (list 4800 6600 6400 7400) (list 5000 4800 6400 7800) (list 5000 6000 6400 7800) (list 5000 4800 6600 7600) (list 5000 6000 6600 7600) (list 5000 5200 6000 7800) (list 5000 5200 7200 7800) (list 5000 6400 6000 7800) (list 5000 6400 7200 7800) (list 5000 5200 6600 7200) (list 5000 6400 6600 7200) (list 5000 5400 6000 7600) (list 5000 5400 7200 7600) (list 5000 6600 6000 7600) (list 5000 6600 7200 7600) (list 5000 5400 6400 7200) (list 5000 6600 6400 7200) (list 5200 4800 6200 7800) (list 5200 6000 6200 7800) (list 5200 4800 6600 7400) (list 5200 6000 6600 7400) (list 5200 5000 6000 7800) (list 5200 5000 7200 7800) (list 5200 6200 6000 7800) (list 5200 6200 7200 7800) (list 5200 5000 6600 7200) (list 5200 6200 6600 7200) (list 5200 5400 6000 7400) (list 5200 5400 7200 7400) (list 5200 6600 6000 7400) (list 5200 6600 7200 7400) (list 5200 5400 6200 7200) (list 5200 6600 6200 7200) (list 5400 4800 6200 7600) (list 5400 6000 6200 7600) (list 5400 4800 6400 7400) (list 5400 6000 6400 7400) (list 5400 5000 6000 7600) (list 5400 5000 7200 7600) (list 5400 6200 6000 7600) (list 5400 6200 7200 7600) (list 5400 5000 6400 7200) (list 5400 6200 6400 7200) (list 5400 5200 6000 7400) (list 5400 5200 7200 7400) (list 5400 6400 6000 7400) (list 5400 6400 7200 7400) (list 5400 5200 6200 7200) (list 5400 6400 6200 7200) (list 4900 5000 6300 7600) (list 4900 6200 6300 7600) (list 4900 5000 6400 7500) (list 4900 6200 6400 7500) (list 4900 5100 6200 7600) (list 4900 6300 6200 7600) (list 4900 5100 6400 7400) (list 4900 6300 6400 7400) (list 4900 5200 6200 7500) (list 4900 6400 6200 7500) (list 4900 5200 6300 7400) (list 4900 6400 6300 7400) (list 5000 4900 6300 7600) (list 5000 6100 6300 7600) (list 5000 4900 6400 7500) (list 5000 6100 6400 7500) (list 5000 5100 6100 7600) (list 5000 6300 6100 7600) (list 5000 5100 6400 7300) (list 5000 6300 6400 7300) (list 5000 5200 6100 7500) (list 5000 6400 6100 7500) (list 5000 5200 6300 7300) (list 5000 6400 6300 7300) (list 5100 4900 6200 7600) (list 5100 6100 6200 7600) (list 5100 4900 6400 7400) (list 5100 6100 6400 7400) (list 5100 5000 6100 7600) (list 5100 6200 6100 7600) (list 5100 5000 6400 7300) (list 5100 6200 6400 7300) (list 5100 5200 6100 7400) (list 5100 6400 6100 7400) (list 5100 5200 6200 7300) (list 5100 6400 6200 7300) (list 5200 4900 6200 7500) (list 5200 6100 6200 7500) (list 5200 4900 6300 7400) (list 5200 6100 6300 7400) (list 5200 5000 6100 7500) (list 5200 6200 6100 7500) (list 5200 5000 6300 7300) (list 5200 6200 6300 7300) (list 5200 5100 6100 7400) (list 5200 6300 6100 7400) (list 5200 5100 6200 7300) (list 5200 6300 6200 7300) (list 4900 5100 6500 7900) (list 4900 6300 6500 7900) (list 4900 5100 6700 7700) (list 4900 6300 6700 7700) (list 4900 5300 6300 7900) (list 4900 6500 6300 7900) (list 4900 5300 6700 7500) (list 4900 6500 6700 7500) (list 4900 5500 6300 7700) (list 4900 6700 6300 7700) (list 4900 5500 6500 7500) (list 4900 6700 6500 7500) (list 5100 4900 6500 7900) (list 5100 6100 6500 7900) (list 5100 4900 6700 7700) (list 5100 6100 6700 7700) (list 5100 5300 6100 7900) (list 5100 6500 6100 7900) (list 5100 5300 6700 7300) (list 5100 6500 6700 7300) (list 5100 5500 6100 7700) (list 5100 6700 6100 7700) (list 5100 5500 6500 7300) (list 5100 6700 6500 7300) (list 5300 4900 6300 7900) (list 5300 6100 6300 7900) (list 5300 4900 6700 7500) (list 5300 6100 6700 7500) (list 5300 5100 6100 7900) (list 5300 6300 6100 7900) (list 5300 5100 6700 7300) (list 5300 6300 6700 7300) (list 5300 5500 6100 7500) (list 5300 6700 6100 7500) (list 5300 5500 6300 7300) (list 5300 6700 6300 7300) (list 5500 4900 6300 7700) (list 5500 6100 6300 7700) (list 5500 4900 6500 7500) (list 5500 6100 6500 7500) (list 5500 5100 6100 7700) (list 5500 6300 6100 7700) (list 5500 5100 6500 7300) (list 5500 6300 6500 7300) (list 5500 5300 6100 7500) (list 5500 6500 6100 7500) (list 5500 5300 6300 7300) (list 5500 6500 6300 7300) (list 5000 5100 6400 7700) (list 5000 6300 6400 7700) (list 5000 5100 6500 7600) (list 5000 6300 6500 7600) (list 5000 5200 6300 7700) (list 5000 6400 6300 7700) (list 5000 5200 6500 7500) (list 5000 6400 6500 7500) (list 5000 5300 6300 7600) (list 5000 6500 6300 7600) (list 5000 5300 6400 7500) (list 5000 6500 6400 7500) (list 5100 5000 6400 7700) (list 5100 6200 6400 7700) (list 5100 5000 6500 7600) (list 5100 6200 6500 7600) (list 5100 5200 6200 7700) (list 5100 6400 6200 7700) (list 5100 5200 6500 7400) (list 5100 6400 6500 7400) (list 5100 5300 6200 7600) (list 5100 6500 6200 7600) (list 5100 5300 6400 7400) (list 5100 6500 6400 7400) (list 5200 5000 6300 7700) (list 5200 6200 6300 7700) (list 5200 5000 6500 7500) (list 5200 6200 6500 7500) (list 5200 5100 6200 7700) (list 5200 6300 6200 7700) (list 5200 5100 6500 7400) (list 5200 6300 6500 7400) (list 5200 5300 6200 7500) (list 5200 6500 6200 7500) (list 5200 5300 6300 7400) (list 5200 6500 6300 7400) (list 5300 5000 6300 7600) (list 5300 6200 6300 7600) (list 5300 5000 6400 7500) (list 5300 6200 6400 7500) (list 5300 5100 6200 7600) (list 5300 6300 6200 7600) (list 5300 5100 6400 7400) (list 5300 6300 6400 7400) (list 5300 5200 6200 7500) (list 5300 6400 6200 7500) (list 5300 5200 6300 7400) (list 5300 6400 6300 7400) (list 5000 5200 6600 6800) (list 5000 5200 6600 8000) (list 5000 6400 6600 6800) (list 5000 6400 6600 8000) (list 5000 5200 6800 7800) (list 5000 6400 6800 7800) (list 5000 5400 6400 6800) (list 5000 5400 6400 8000) (list 5000 6600 6400 6800) (list 5000 6600 6400 8000) (list 5000 5400 6800 7600) (list 5000 6600 6800 7600) (list 5000 5600 6400 7800) (list 5000 5600 6600 7600) (list 5200 5000 6600 6800) (list 5200 5000 6600 8000) (list 5200 6200 6600 6800) (list 5200 6200 6600 8000) (list 5200 5000 6800 7800) (list 5200 6200 6800 7800) (list 5200 5400 6200 6800) (list 5200 5400 6200 8000) (list 5200 6600 6200 6800) (list 5200 6600 6200 8000) (list 5200 5400 6800 7400) (list 5200 6600 6800 7400) (list 5200 5600 6200 7800) (list 5200 5600 6600 7400) (list 5400 5000 6400 6800) (list 5400 5000 6400 8000) (list 5400 6200 6400 6800) (list 5400 6200 6400 8000) (list 5400 5000 6800 7600) (list 5400 6200 6800 7600) (list 5400 5200 6200 6800) (list 5400 5200 6200 8000) (list 5400 6400 6200 6800) (list 5400 6400 6200 8000) (list 5400 5200 6800 7400) (list 5400 6400 6800 7400) (list 5400 5600 6200 7600) (list 5400 5600 6400 7400) (list 5600 5000 6400 7800) (list 5600 6200 6400 7800) (list 5600 5000 6600 7600) (list 5600 6200 6600 7600) (list 5600 5200 6200 7800) (list 5600 6400 6200 7800) (list 5600 5200 6600 7400) (list 5600 6400 6600 7400) (list 5600 5400 6200 7600) (list 5600 6600 6200 7600) (list 5600 5400 6400 7400) (list 5600 6600 6400 7400) (list 5100 5200 6500 7800) (list 5100 6400 6500 7800) (list 5100 5200 6600 7700) (list 5100 6400 6600 7700) (list 5100 5300 6400 7800) (list 5100 6500 6400 7800) (list 5100 5300 6600 7600) (list 5100 6500 6600 7600) (list 5100 5400 6400 7700) (list 5100 6600 6400 7700) (list 5100 5400 6500 7600) (list 5100 6600 6500 7600) (list 5200 5100 6500 7800) (list 5200 6300 6500 7800) (list 5200 5100 6600 7700) (list 5200 6300 6600 7700) (list 5200 5300 6300 7800) (list 5200 6500 6300 7800) (list 5200 5300 6600 7500) (list 5200 6500 6600 7500) (list 5200 5400 6300 7700) (list 5200 6600 6300 7700) (list 5200 5400 6500 7500) (list 5200 6600 6500 7500) (list 5300 5100 6400 7800) (list 5300 6300 6400 7800) (list 5300 5100 6600 7600) (list 5300 6300 6600 7600) (list 5300 5200 6300 7800) (list 5300 6400 6300 7800) (list 5300 5200 6600 7500) (list 5300 6400 6600 7500) (list 5300 5400 6300 7600) (list 5300 6600 6300 7600) (list 5300 5400 6400 7500) (list 5300 6600 6400 7500) (list 5400 5100 6400 7700) (list 5400 6300 6400 7700) (list 5400 5100 6500 7600) (list 5400 6300 6500 7600) (list 5400 5200 6300 7700) (list 5400 6400 6300 7700) (list 5400 5200 6500 7500) (list 5400 6400 6500 7500) (list 5400 5300 6300 7600) (list 5400 6500 6300 7600) (list 5400 5300 6400 7500) (list 5400 6500 6400 7500) (list 5100 5300 6700 6900) (list 5100 5300 6700 8100) (list 5100 6500 6700 6900) (list 5100 6500 6700 8100) (list 5100 5300 5700 7900) (list 5100 5300 6900 7900) (list 5100 6500 5700 7900) (list 5100 6500 6900 7900) (list 5100 5500 6500 6900) (list 5100 5500 6500 8100) (list 5100 6700 6500 6900) (list 5100 6700 6500 8100) (list 5100 5500 5700 7700) (list 5100 5500 6900 7700) (list 5100 6700 5700 7700) (list 5100 6700 6900 7700) (list 5100 5700 6500 7900) (list 5100 5700 6700 7700) (list 5300 5100 6700 6900) (list 5300 5100 6700 8100) (list 5300 6300 6700 6900) (list 5300 6300 6700 8100) (list 5300 5100 5700 7900) (list 5300 5100 6900 7900) (list 5300 6300 5700 7900) (list 5300 6300 6900 7900) (list 5300 5500 6300 6900) (list 5300 5500 6300 8100) (list 5300 6700 6300 6900) (list 5300 6700 6300 8100) (list 5300 5500 5700 7500) (list 5300 5500 6900 7500) (list 5300 6700 5700 7500) (list 5300 6700 6900 7500) (list 5300 5700 6300 7900) (list 5300 5700 6700 7500) (list 5500 5100 6500 6900) (list 5500 5100 6500 8100) (list 5500 6300 6500 6900) (list 5500 6300 6500 8100) (list 5500 5100 5700 7700) (list 5500 5100 6900 7700) (list 5500 6300 5700 7700) (list 5500 6300 6900 7700) (list 5500 5300 6300 6900) (list 5500 5300 6300 8100) (list 5500 6500 6300 6900) (list 5500 6500 6300 8100) (list 5500 5300 5700 7500) (list 5500 5300 6900 7500) (list 5500 6500 5700 7500) (list 5500 6500 6900 7500) (list 5500 5700 6300 7700) (list 5500 5700 6500 7500) (list 5700 5100 6500 7900) (list 5700 6300 6500 7900) (list 5700 5100 6700 7700) (list 5700 6300 6700 7700) (list 5700 5300 6300 7900) (list 5700 6500 6300 7900) (list 5700 5300 6700 7500) (list 5700 6500 6700 7500) (list 5700 5500 6300 7700) (list 5700 6700 6300 7700) (list 5700 5500 6500 7500) (list 5700 6700 6500 7500) (list 5200 5300 6600 7900) (list 5200 6500 6600 7900) (list 5200 5300 6700 7800) (list 5200 6500 6700 7800) (list 5200 5400 6500 7900) (list 5200 6600 6500 7900) (list 5200 5400 6700 7700) (list 5200 6600 6700 7700) (list 5200 5500 6500 7800) (list 5200 6700 6500 7800) (list 5200 5500 6600 7700) (list 5200 6700 6600 7700) (list 5300 5200 6600 7900) (list 5300 6400 6600 7900) (list 5300 5200 6700 7800) (list 5300 6400 6700 7800) (list 5300 5400 6400 7900) (list 5300 6600 6400 7900) (list 5300 5400 6700 7600) (list 5300 6600 6700 7600) (list 5300 5500 6400 7800) (list 5300 6700 6400 7800) (list 5300 5500 6600 7600) (list 5300 6700 6600 7600) (list 5400 5200 6500 7900) (list 5400 6400 6500 7900) (list 5400 5200 6700 7700) (list 5400 6400 6700 7700) (list 5400 5300 6400 7900) (list 5400 6500 6400 7900) (list 5400 5300 6700 7600) (list 5400 6500 6700 7600) (list 5400 5500 6400 7700) (list 5400 6700 6400 7700) (list 5400 5500 6500 7600) (list 5400 6700 6500 7600) (list 5500 5200 6500 7800) (list 5500 6400 6500 7800) (list 5500 5200 6600 7700) (list 5500 6400 6600 7700) (list 5500 5300 6400 7800) (list 5500 6500 6400 7800) (list 5500 5300 6600 7600) (list 5500 6500 6600 7600) (list 5500 5400 6400 7700) (list 5500 6600 6400 7700) (list 5500 5400 6500 7600) (list 5500 6600 6500 7600) (list 5200 5400 6800 7000) (list 5200 5400 6800 8200) (list 5200 6600 6800 7000) (list 5200 6600 6800 8200) (list 5200 5400 5800 6800) (list 5200 5400 5800 8000) (list 5200 5400 7000 6800) (list 5200 5400 7000 8000) (list 5200 6600 5800 6800) (list 5200 6600 5800 8000) (list 5200 6600 7000 6800) (list 5200 6600 7000 8000) (list 5200 5600 6600 7000) (list 5200 5600 6600 8200) (list 5200 5600 5800 7800) (list 5200 5600 7000 7800) (list 5200 5800 6600 6800) (list 5200 5800 6600 8000) (list 5200 5800 6800 7800) (list 5400 5200 6800 7000) (list 5400 5200 6800 8200) (list 5400 6400 6800 7000) (list 5400 6400 6800 8200) (list 5400 5200 5800 6800) (list 5400 5200 5800 8000) (list 5400 5200 7000 6800) (list 5400 5200 7000 8000) (list 5400 6400 5800 6800) (list 5400 6400 5800 8000) (list 5400 6400 7000 6800) (list 5400 6400 7000 8000) (list 5400 5600 6400 7000) (list 5400 5600 6400 8200) (list 5400 5600 5800 7600) (list 5400 5600 7000 7600) (list 5400 5800 6400 6800) (list 5400 5800 6400 8000) (list 5400 5800 6800 7600) (list 5600 5200 6600 7000) (list 5600 5200 6600 8200) (list 5600 6400 6600 7000) (list 5600 6400 6600 8200) (list 5600 5200 5800 7800) (list 5600 5200 7000 7800) (list 5600 6400 5800 7800) (list 5600 6400 7000 7800) (list 5600 5400 6400 7000) (list 5600 5400 6400 8200) (list 5600 6600 6400 7000) (list 5600 6600 6400 8200) (list 5600 5400 5800 7600) (list 5600 5400 7000 7600) (list 5600 6600 5800 7600) (list 5600 6600 7000 7600) (list 5600 5800 6400 7800) (list 5600 5800 6600 7600) (list 5800 5200 6600 6800) (list 5800 5200 6600 8000) (list 5800 6400 6600 6800) (list 5800 6400 6600 8000) (list 5800 5200 6800 7800) (list 5800 6400 6800 7800) (list 5800 5400 6400 6800) (list 5800 5400 6400 8000) (list 5800 6600 6400 6800) (list 5800 6600 6400 8000) (list 5800 5400 6800 7600) (list 5800 6600 6800 7600) (list 5800 5600 6400 7800) (list 5800 5600 6600 7600) (list 5300 5400 6700 6800) (list 5300 5400 6700 8000) (list 5300 6600 6700 6800) (list 5300 6600 6700 8000) (list 5300 5400 6800 7900) (list 5300 6600 6800 7900) (list 5300 5500 6600 6800) (list 5300 5500 6600 8000) (list 5300 6700 6600 6800) (list 5300 6700 6600 8000) (list 5300 5500 6800 7800) (list 5300 6700 6800 7800) (list 5300 5600 6600 7900) (list 5300 5600 6700 7800) (list 5400 5300 6700 6800) (list 5400 5300 6700 8000) (list 5400 6500 6700 6800) (list 5400 6500 6700 8000) (list 5400 5300 6800 7900) (list 5400 6500 6800 7900) (list 5400 5500 6500 6800) (list 5400 5500 6500 8000) (list 5400 6700 6500 6800) (list 5400 6700 6500 8000) (list 5400 5500 6800 7700) (list 5400 6700 6800 7700) (list 5400 5600 6500 7900) (list 5400 5600 6700 7700) (list 5500 5300 6600 6800) (list 5500 5300 6600 8000) (list 5500 6500 6600 6800) (list 5500 6500 6600 8000) (list 5500 5300 6800 7800) (list 5500 6500 6800 7800) (list 5500 5400 6500 6800) (list 5500 5400 6500 8000) (list 5500 6600 6500 6800) (list 5500 6600 6500 8000) (list 5500 5400 6800 7700) (list 5500 6600 6800 7700) (list 5500 5600 6500 7800) (list 5500 5600 6600 7700) (list 5600 5300 6600 7900) (list 5600 6500 6600 7900) (list 5600 5300 6700 7800) (list 5600 6500 6700 7800) (list 5600 5400 6500 7900) (list 5600 6600 6500 7900) (list 5600 5400 6700 7700) (list 5600 6600 6700 7700) (list 5600 5500 6500 7800) (list 5600 6700 6500 7800) (list 5600 5500 6600 7700) (list 5600 6700 6600 7700) (list 5300 5500 5700 7100) (list 5300 5500 5700 8300) (list 5300 5500 6900 7100) (list 5300 5500 6900 8300) (list 5300 6700 5700 7100) (list 5300 6700 5700 8300) (list 5300 6700 6900 7100) (list 5300 6700 6900 8300) (list 5300 5500 5900 6900) (list 5300 5500 5900 8100) (list 5300 5500 7100 6900) (list 5300 5500 7100 8100) (list 5300 6700 5900 6900) (list 5300 6700 5900 8100) (list 5300 6700 7100 6900) (list 5300 6700 7100 8100) (list 5300 5700 6700 7100) (list 5300 5700 6700 8300) (list 5300 5700 5900 7900) (list 5300 5700 7100 7900) (list 5300 5900 6700 6900) (list 5300 5900 6700 8100) (list 5300 5900 5700 7900) (list 5300 5900 6900 7900) (list 5500 5300 5700 7100) (list 5500 5300 5700 8300) (list 5500 5300 6900 7100) (list 5500 5300 6900 8300) (list 5500 6500 5700 7100) (list 5500 6500 5700 8300) (list 5500 6500 6900 7100) (list 5500 6500 6900 8300) (list 5500 5300 5900 6900) (list 5500 5300 5900 8100) (list 5500 5300 7100 6900) (list 5500 5300 7100 8100) (list 5500 6500 5900 6900) (list 5500 6500 5900 8100) (list 5500 6500 7100 6900) (list 5500 6500 7100 8100) (list 5500 5700 6500 7100) (list 5500 5700 6500 8300) (list 5500 5700 5900 7700) (list 5500 5700 7100 7700) (list 5500 5900 6500 6900) (list 5500 5900 6500 8100) (list 5500 5900 5700 7700) (list 5500 5900 6900 7700) (list 5700 5300 6700 7100) (list 5700 5300 6700 8300) (list 5700 6500 6700 7100) (list 5700 6500 6700 8300) (list 5700 5300 5900 7900) (list 5700 5300 7100 7900) (list 5700 6500 5900 7900) (list 5700 6500 7100 7900) (list 5700 5500 6500 7100) (list 5700 5500 6500 8300) (list 5700 6700 6500 7100) (list 5700 6700 6500 8300) (list 5700 5500 5900 7700) (list 5700 5500 7100 7700) (list 5700 6700 5900 7700) (list 5700 6700 7100 7700) (list 5700 5900 6500 7900) (list 5700 5900 6700 7700) (list 5400 5500 6800 6900) (list 5400 5500 6800 8100) (list 5400 6700 6800 6900) (list 5400 6700 6800 8100) (list 5400 5500 5700 6800) (list 5400 5500 5700 8000) (list 5400 5500 6900 6800) (list 5400 5500 6900 8000) (list 5400 6700 5700 6800) (list 5400 6700 5700 8000) (list 5400 6700 6900 6800) (list 5400 6700 6900 8000) (list 5400 5600 6700 6900) (list 5400 5600 6700 8100) (list 5400 5600 5700 7900) (list 5400 5600 6900 7900) (list 5400 5700 6700 6800) (list 5400 5700 6700 8000) (list 5400 5700 6800 7900) (list 5500 5400 6800 6900) (list 5500 5400 6800 8100) (list 5500 6600 6800 6900) (list 5500 6600 6800 8100) (list 5500 5400 5700 6800) (list 5500 5400 5700 8000) (list 5500 5400 6900 6800) (list 5500 5400 6900 8000) (list 5500 6600 5700 6800) (list 5500 6600 5700 8000) (list 5500 6600 6900 6800) (list 5500 6600 6900 8000) (list 5500 5600 6600 6900) (list 5500 5600 6600 8100) (list 5500 5600 5700 7800) (list 5500 5600 6900 7800) (list 5500 5700 6600 6800) (list 5500 5700 6600 8000) (list 5500 5700 6800 7800) (list 5600 5400 6700 6900) (list 5600 5400 6700 8100) (list 5600 6600 6700 6900) (list 5600 6600 6700 8100) (list 5600 5400 5700 7900) (list 5600 5400 6900 7900) (list 5600 6600 5700 7900) (list 5600 6600 6900 7900) (list 5600 5500 6600 6900) (list 5600 5500 6600 8100) (list 5600 6700 6600 6900) (list 5600 6700 6600 8100) (list 5600 5500 5700 7800) (list 5600 5500 6900 7800) (list 5600 6700 5700 7800) (list 5600 6700 6900 7800) (list 5600 5700 6600 7900) (list 5600 5700 6700 7800) (list 5700 5400 6700 6800) (list 5700 5400 6700 8000) (list 5700 6600 6700 6800) (list 5700 6600 6700 8000) (list 5700 5400 6800 7900) (list 5700 6600 6800 7900) (list 5700 5500 6600 6800) (list 5700 5500 6600 8000) (list 5700 6700 6600 6800) (list 5700 6700 6600 8000) (list 5700 5500 6800 7800) (list 5700 6700 6800 7800) (list 5700 5600 6600 7900) (list 5700 5600 6700 7800) (list 5400 5600 5800 7200) (list 5400 5600 5800 8400) (list 5400 5600 7000 7200) (list 5400 5600 7000 8400) (list 5400 5600 6000 7000) (list 5400 5600 6000 8200) (list 5400 5600 7200 7000) (list 5400 5600 7200 8200) (list 5400 5800 6800 7200) (list 5400 5800 6800 8400) (list 5400 5800 6000 6800) (list 5400 5800 6000 8000) (list 5400 5800 7200 6800) (list 5400 5800 7200 8000) (list 5400 6000 6800 7000) (list 5400 6000 6800 8200) (list 5400 6000 5800 6800) (list 5400 6000 5800 8000) (list 5400 6000 7000 6800) (list 5400 6000 7000 8000) (list 5600 5400 5800 7200) (list 5600 5400 5800 8400) (list 5600 5400 7000 7200) (list 5600 5400 7000 8400) (list 5600 6600 5800 7200) (list 5600 6600 5800 8400) (list 5600 6600 7000 7200) (list 5600 6600 7000 8400) (list 5600 5400 6000 7000) (list 5600 5400 6000 8200) (list 5600 5400 7200 7000) (list 5600 5400 7200 8200) (list 5600 6600 6000 7000) (list 5600 6600 6000 8200) (list 5600 6600 7200 7000) (list 5600 6600 7200 8200) (list 5600 5800 6600 7200) (list 5600 5800 6600 8400) (list 5600 5800 6000 7800) (list 5600 5800 7200 7800) (list 5600 6000 6600 7000) (list 5600 6000 6600 8200) (list 5600 6000 5800 7800) (list 5600 6000 7000 7800) (list 5800 5400 6800 7200) (list 5800 5400 6800 8400) (list 5800 6600 6800 7200) (list 5800 6600 6800 8400) (list 5800 5400 6000 6800) (list 5800 5400 6000 8000) (list 5800 5400 7200 6800) (list 5800 5400 7200 8000) (list 5800 6600 6000 6800) (list 5800 6600 6000 8000) (list 5800 6600 7200 6800) (list 5800 6600 7200 8000) (list 5800 5600 6600 7200) (list 5800 5600 6600 8400) (list 5800 5600 6000 7800) (list 5800 5600 7200 7800) (list 5800 6000 6600 6800) (list 5800 6000 6600 8000) (list 5800 6000 6800 7800) (list 5500 5600 5700 7000) (list 5500 5600 5700 8200) (list 5500 5600 6900 7000) (list 5500 5600 6900 8200) (list 5500 5600 5800 6900) (list 5500 5600 5800 8100) (list 5500 5600 7000 6900) (list 5500 5600 7000 8100) (list 5500 5700 6800 7000) (list 5500 5700 6800 8200) (list 5500 5700 5800 6800) (list 5500 5700 5800 8000) (list 5500 5700 7000 6800) (list 5500 5700 7000 8000) (list 5500 5800 6800 6900) (list 5500 5800 6800 8100) (list 5500 5800 5700 6800) (list 5500 5800 5700 8000) (list 5500 5800 6900 6800) (list 5500 5800 6900 8000) (list 5600 5500 5700 7000) (list 5600 5500 5700 8200) (list 5600 5500 6900 7000) (list 5600 5500 6900 8200) (list 5600 6700 5700 7000) (list 5600 6700 5700 8200) (list 5600 6700 6900 7000) (list 5600 6700 6900 8200) (list 5600 5500 5800 6900) (list 5600 5500 5800 8100) (list 5600 5500 7000 6900) (list 5600 5500 7000 8100) (list 5600 6700 5800 6900) (list 5600 6700 5800 8100) (list 5600 6700 7000 6900) (list 5600 6700 7000 8100) (list 5600 5700 6700 7000) (list 5600 5700 6700 8200) (list 5600 5700 5800 7900) (list 5600 5700 7000 7900) (list 5600 5800 6700 6900) (list 5600 5800 6700 8100) (list 5600 5800 5700 7900) (list 5600 5800 6900 7900) (list 5700 5500 6800 7000) (list 5700 5500 6800 8200) (list 5700 6700 6800 7000) (list 5700 6700 6800 8200) (list 5700 5500 5800 6800) (list 5700 5500 5800 8000) (list 5700 5500 7000 6800) (list 5700 5500 7000 8000) (list 5700 6700 5800 6800) (list 5700 6700 5800 8000) (list 5700 6700 7000 6800) (list 5700 6700 7000 8000) (list 5700 5600 6700 7000) (list 5700 5600 6700 8200) (list 5700 5600 5800 7900) (list 5700 5600 7000 7900) (list 5700 5800 6700 6800) (list 5700 5800 6700 8000) (list 5700 5800 6800 7900) (list 5800 5500 6800 6900) (list 5800 5500 6800 8100) (list 5800 6700 6800 6900) (list 5800 6700 6800 8100) (list 5800 5500 5700 6800) (list 5800 5500 5700 8000) (list 5800 5500 6900 6800) (list 5800 5500 6900 8000) (list 5800 6700 5700 6800) (list 5800 6700 5700 8000) (list 5800 6700 6900 6800) (list 5800 6700 6900 8000) (list 5800 5600 6700 6900) (list 5800 5600 6700 8100) (list 5800 5600 5700 7900) (list 5800 5600 6900 7900) (list 5800 5700 6700 6800) (list 5800 5700 6700 8000) (list 5800 5700 6800 7900) (list 5500 5700 5900 7300) (list 5500 5700 5900 8500) (list 5500 5700 7100 7300) (list 5500 5700 7100 8500) (list 5500 5700 6100 7100) (list 5500 5700 6100 8300) (list 5500 5900 5700 7300) (list 5500 5900 5700 8500) (list 5500 5900 6900 7300) (list 5500 5900 6900 8500) (list 5500 5900 6100 6900) (list 5500 5900 6100 8100) (list 5500 6100 5700 7100) (list 5500 6100 5700 8300) (list 5500 6100 6900 7100) (list 5500 6100 6900 8300) (list 5500 6100 5900 6900) (list 5500 6100 5900 8100) (list 5500 6100 7100 6900) (list 5500 6100 7100 8100) (list 5700 5500 5900 7300) (list 5700 5500 5900 8500) (list 5700 5500 7100 7300) (list 5700 5500 7100 8500) (list 5700 6700 5900 7300) (list 5700 6700 5900 8500) (list 5700 6700 7100 7300) (list 5700 6700 7100 8500) (list 5700 5500 6100 7100) (list 5700 5500 6100 8300) (list 5700 6700 6100 7100) (list 5700 6700 6100 8300) (list 5700 5900 6700 7300) (list 5700 5900 6700 8500) (list 5700 5900 6100 7900) (list 5700 6100 6700 7100) (list 5700 6100 6700 8300) (list 5700 6100 5900 7900) (list 5700 6100 7100 7900) (list 5600 5700 5800 7100) (list 5600 5700 5800 8300) (list 5600 5700 7000 7100) (list 5600 5700 7000 8300) (list 5600 5700 5900 7000) (list 5600 5700 5900 8200) (list 5600 5700 7100 7000) (list 5600 5700 7100 8200) (list 5600 5800 5700 7100) (list 5600 5800 5700 8300) (list 5600 5800 6900 7100) (list 5600 5800 6900 8300) (list 5600 5800 5900 6900) (list 5600 5800 5900 8100) (list 5600 5800 7100 6900) (list 5600 5800 7100 8100) (list 5600 5900 5700 7000) (list 5600 5900 5700 8200) (list 5600 5900 6900 7000) (list 5600 5900 6900 8200) (list 5600 5900 5800 6900) (list 5600 5900 5800 8100) (list 5600 5900 7000 6900) (list 5600 5900 7000 8100) (list 5700 5600 5800 7100) (list 5700 5600 5800 8300) (list 5700 5600 7000 7100) (list 5700 5600 7000 8300) (list 5700 5600 5900 7000) (list 5700 5600 5900 8200) (list 5700 5600 7100 7000) (list 5700 5600 7100 8200) (list 5700 5800 6800 7100) (list 5700 5800 6800 8300) (list 5700 5800 5900 6800) (list 5700 5800 5900 8000) (list 5700 5800 7100 6800) (list 5700 5800 7100 8000) (list 5700 5900 6800 7000) (list 5700 5900 6800 8200) (list 5700 5900 5800 6800) (list 5700 5900 5800 8000) (list 5700 5900 7000 6800) (list 5700 5900 7000 8000) (list 5800 5600 5700 7100) (list 5800 5600 5700 8300) (list 5800 5600 6900 7100) (list 5800 5600 6900 8300) (list 5800 5600 5900 6900) (list 5800 5600 5900 8100) (list 5800 5600 7100 6900) (list 5800 5600 7100 8100) (list 5800 5700 6800 7100) (list 5800 5700 6800 8300) (list 5800 5700 5900 6800) (list 5800 5700 5900 8000) (list 5800 5700 7100 6800) (list 5800 5700 7100 8000) (list 5800 5900 6800 6900) (list 5800 5900 6800 8100) (list 5800 5900 5700 6800) (list 5800 5900 5700 8000) (list 5800 5900 6900 6800) (list 5800 5900 6900 8000) (list 5600 5800 6000 7400) (list 5600 5800 7200 7400) (list 5600 5800 6200 7200) (list 5600 5800 6200 8400) (list 5600 6000 5800 7400) (list 5600 6000 7000 7400) (list 5600 6000 6200 7000) (list 5600 6000 6200 8200) (list 5600 6200 5800 7200) (list 5600 6200 5800 8400) (list 5600 6200 7000 7200) (list 5600 6200 7000 8400) (list 5600 6200 6000 7000) (list 5600 6200 6000 8200) (list 5600 6200 7200 7000) (list 5600 6200 7200 8200) (list 5800 5600 6000 7400) (list 5800 5600 7200 7400) (list 5800 5600 6200 7200) (list 5800 5600 6200 8400) (list 5800 6000 6800 7400) (list 5800 6000 6200 6800) (list 5800 6000 6200 8000) (list 5800 6200 6800 7200) (list 5800 6200 6800 8400) (list 5800 6200 6000 6800) (list 5800 6200 6000 8000) (list 5800 6200 7200 6800) (list 5800 6200 7200 8000) (list 5700 5800 5900 7200) (list 5700 5800 5900 8400) (list 5700 5800 7100 7200) (list 5700 5800 7100 8400) (list 5700 5800 6000 7100) (list 5700 5800 6000 8300) (list 5700 5800 7200 7100) (list 5700 5800 7200 8300) (list 5700 5900 5800 7200) (list 5700 5900 5800 8400) (list 5700 5900 7000 7200) (list 5700 5900 7000 8400) (list 5700 5900 6000 7000) (list 5700 5900 6000 8200) (list 5700 5900 7200 7000) (list 5700 5900 7200 8200) (list 5700 6000 5800 7100) (list 5700 6000 5800 8300) (list 5700 6000 7000 7100) (list 5700 6000 7000 8300) (list 5700 6000 5900 7000) (list 5700 6000 5900 8200) (list 5700 6000 7100 7000) (list 5700 6000 7100 8200) (list 5800 5700 5900 7200) (list 5800 5700 5900 8400) (list 5800 5700 7100 7200) (list 5800 5700 7100 8400) (list 5800 5700 6000 7100) (list 5800 5700 6000 8300) (list 5800 5700 7200 7100) (list 5800 5700 7200 8300) (list 5800 5900 5700 7200) (list 5800 5900 5700 8400) (list 5800 5900 6900 7200) (list 5800 5900 6900 8400) (list 5800 5900 6000 6900) (list 5800 5900 6000 8100) (list 5800 5900 7200 6900) (list 5800 5900 7200 8100) (list 5800 6000 5700 7100) (list 5800 6000 5700 8300) (list 5800 6000 6900 7100) (list 5800 6000 6900 8300) (list 5800 6000 5900 6900) (list 5800 6000 5900 8100) (list 5800 6000 7100 6900) (list 5800 6000 7100 8100) (list 5700 5900 6100 7500) (list 5700 5900 6300 7300) (list 5700 5900 6300 8500) (list 5700 6100 5900 7500) (list 5700 6100 7100 7500) (list 5700 6100 6300 7100) (list 5700 6100 6300 8300) (list 5700 6300 5900 7300) (list 5700 6300 5900 8500) (list 5700 6300 7100 7300) (list 5700 6300 7100 8500) (list 5700 6300 6100 7100) (list 5700 6300 6100 8300) (list 5800 5900 6000 7300) (list 5800 5900 6000 8500) (list 5800 5900 7200 7300) (list 5800 5900 7200 8500) (list 5800 5900 6100 7200) (list 5800 5900 6100 8400) (list 5800 6000 5900 7300) (list 5800 6000 5900 8500) (list 5800 6000 7100 7300) (list 5800 6000 7100 8500) (list 5800 6000 6100 7100) (list 5800 6000 6100 8300) (list 5800 6100 5900 7200) (list 5800 6100 5900 8400) (list 5800 6100 7100 7200) (list 5800 6100 7100 8400) (list 5800 6100 6000 7100) (list 5800 6100 6000 8300) (list 5800 6100 7200 7100) (list 5800 6100 7200 8300) (list 5800 6000 6200 7600) (list 5800 6000 6400 7400) (list 5800 6200 6000 7600) (list 5800 6200 7200 7600) (list 5800 6200 6400 7200) (list 5800 6200 6400 8400) (list 5800 6400 6000 7400) (list 5800 6400 7200 7400) (list 5800 6400 6200 7200) (list 5800 6400 6200 8400))) "x" nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxout "output" 0 (om-make-point 180 384) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 14 87) (om-make-point 217 30) (list (list 0 100 200 300) (list 0 200 400 600)) "((0 100 200 300) (0 200 400 600))" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 472 106) (om-make-point 133 30) (list 0 1200 2400 4800) "(0 1200 2400 4800)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 4" (quote t) (quote nil) (om-make-point 169 106) (om-make-point 90 30) (list 3600 5800) "(3600 5800)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 3" (quote t) (quote nil) (om-make-point 250 80) (om-make-point 90 30) (list 4800 6700) "(4800 6700)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 2" (quote t) (quote nil) (om-make-point 331 106) (om-make-point 90 30) (list 5700 7200) "(5700 7200)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux" (quote t) (quote nil) (om-make-point 412 81) (om-make-point 90 30) (list 6800 8500) "(6800 8500)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (4 0 0 1 nil 0) (5 0 0 2 nil 0) (6 0 0 3 nil 0) (7 0 0 4 nil 0) (3 0 0 5 nil 0) (0 0 1 0 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote nil) (om-make-point 19 103) nil (list (list (list 3600 5000 6300 8500) (list 3600 6200 6300 8500) (list 4800 5000 6300 8500) (list 4800 6200 6300 8500) (list 3600 5100 6200 8500) (list 3600 6300 6200 8500) (list 4800 5100 6200 8500) (list 4800 6300 6200 8500) (list 3700 5000 6300 8400) (list 3700 6200 6300 8400) (list 4900 5000 6300 8400) (list 4900 6200 6300 8400) (list 3700 5100 6200 8400) (list 3700 6300 6200 8400) (list 4900 5100 6200 8400) (list 4900 6300 6200 8400) (list 3800 4800 6300 8500) (list 3800 6000 6300 8500) (list 5000 4800 6300 8500) (list 5000 6000 6300 8500) (list 3800 4900 6300 8400) (list 3800 6100 6300 8400) (list 5000 4900 6300 8400) (list 5000 6100 6300 8400) (list 3800 5100 6000 8500) (list 3800 6300 6000 8500) (list 5000 5100 6000 8500) (list 5000 6300 6000 8500) (list 3800 5100 6100 8400) (list 3800 6300 6100 8400) (list 5000 5100 6100 8400) (list 5000 6300 6100 8400) (list 3900 4800 6200 8500) (list 3900 6000 6200 8500) (list 5100 4800 6200 8500) (list 5100 6000 6200 8500) (list 3900 4900 6200 8400) (list 3900 6100 6200 8400) (list 5100 4900 6200 8400) (list 5100 6100 6200 8400) (list 3900 5000 6000 8500) (list 3900 6200 6000 8500) (list 5100 5000 6000 8500) (list 5100 6200 6000 8500) (list 3900 5000 6100 8400) (list 3900 6200 6100 8400) (list 5100 5000 6100 8400) (list 5100 6200 6100 8400) (list 3800 5200 6600 8400) (list 3800 6400 6600 8400) (list 5000 5200 6600 8400) (list 5000 6400 6600 8400) (list 3800 5400 6400 8400) (list 3800 6600 6400 8400) (list 5000 5400 6400 8400) (list 5000 6600 6400 8400) (list 4000 5000 6600 8400) (list 4000 6200 6600 8400) (list 5200 5000 6600 8400) (list 5200 6200 6600 8400) (list 4000 5400 6200 8400) (list 4000 6600 6200 8400) (list 5200 5400 6200 8400) (list 5200 6600 6200 8400) (list 4200 5000 6400 8400) (list 4200 6200 6400 8400) (list 5400 5000 6400 8400) (list 5400 6200 6400 8400) (list 4200 5200 6200 8400) (list 4200 6400 6200 8400) (list 5400 5200 6200 8400) (list 5400 6400 6200 8400) (list 3800 5100 6400 8500) (list 3800 6300 6400 8500) (list 5000 5100 6400 8500) (list 5000 6300 6400 8500) (list 3800 5200 6300 8500) (list 3800 6400 6300 8500) (list 5000 5200 6300 8500) (list 5000 6400 6300 8500) (list 3900 5000 6400 8500) (list 3900 6200 6400 8500) (list 5100 5000 6400 8500) (list 5100 6200 6400 8500) (list 3900 5200 6200 8500) (list 3900 6400 6200 8500) (list 5100 5200 6200 8500) (list 5100 6400 6200 8500) (list 4000 5000 6300 8500) (list 4000 6200 6300 8500) (list 5200 5000 6300 8500) (list 5200 6200 6300 8500) (list 4000 5100 6200 8500) (list 4000 6300 6200 8500) (list 5200 5100 6200 8500) (list 5200 6300 6200 8500) (list 3900 5300 6700 8500) (list 3900 6500 6700 8500) (list 5100 5300 6700 8500) (list 5100 6500 6700 8500) (list 3900 5500 6500 8500) (list 3900 6700 6500 8500) (list 5100 5500 6500 8500) (list 5100 6700 6500 8500) (list 4100 5100 6700 8500) (list 4100 6300 6700 8500) (list 5300 5100 6700 8500) (list 5300 6300 6700 8500) (list 4100 5500 6300 8500) (list 4100 6700 6300 8500) (list 5300 5500 6300 8500) (list 5300 6700 6300 8500) (list 4300 5100 6500 8500) (list 4300 6300 6500 8500) (list 5500 5100 6500 8500) (list 5500 6300 6500 8500) (list 4300 5300 6300 8500) (list 4300 6500 6300 8500) (list 5500 5300 6300 8500) (list 5500 6500 6300 8500) (list 3800 5200 6600 6800) (list 3800 6400 6600 6800) (list 3800 5400 6400 6800) (list 3800 6600 6400 6800) (list 4000 5000 6600 6800) (list 4000 6200 6600 6800) (list 4000 5400 6200 6800) (list 4000 6600 6200 6800) (list 4200 5000 6400 6800) (list 4200 6200 6400 6800) (list 4200 5200 6200 6800) (list 4200 6400 6200 6800) (list 3900 5300 6700 6900) (list 3900 6500 6700 6900) (list 3900 5500 6500 6900) (list 3900 6700 6500 6900) (list 4100 5100 6700 6900) (list 4100 6300 6700 6900) (list 4100 5500 6300 6900) (list 4100 6700 6300 6900) (list 4300 5100 6500 6900) (list 4300 6300 6500 6900) (list 4300 5300 6300 6900) (list 4300 6500 6300 6900) (list 4000 5400 6800 7000) (list 4000 6600 6800 7000) (list 4000 5400 5800 6800) (list 4000 5400 7000 6800) (list 4000 6600 5800 6800) (list 4000 6600 7000 6800) (list 4000 5600 6600 7000) (list 4000 5800 6600 6800) (list 4200 5200 6800 7000) (list 4200 6400 6800 7000) (list 4200 5200 5800 6800) (list 4200 5200 7000 6800) (list 4200 6400 5800 6800) (list 4200 6400 7000 6800) (list 4200 5600 6400 7000) (list 4200 5800 6400 6800) (list 4400 5200 6600 7000) (list 4400 6400 6600 7000) (list 4400 5400 6400 7000) (list 4400 6600 6400 7000) (list 4600 5200 6600 6800) (list 4600 6400 6600 6800) (list 4600 5400 6400 6800) (list 4600 6600 6400 6800) (list 4100 5400 6700 6800) (list 4100 6600 6700 6800) (list 4100 5500 6600 6800) (list 4100 6700 6600 6800) (list 4200 5300 6700 6800) (list 4200 6500 6700 6800) (list 4200 5500 6500 6800) (list 4200 6700 6500 6800) (list 4300 5300 6600 6800) (list 4300 6500 6600 6800) (list 4300 5400 6500 6800) (list 4300 6600 6500 6800) (list 4100 5500 5700 7100) (list 4100 5500 6900 7100) (list 4100 6700 5700 7100) (list 4100 6700 6900 7100) (list 4100 5500 5900 6900) (list 4100 5500 7100 6900) (list 4100 6700 5900 6900) (list 4100 6700 7100 6900) (list 4100 5700 6700 7100) (list 4100 5900 6700 6900) (list 4300 5300 5700 7100) (list 4300 5300 6900 7100) (list 4300 6500 5700 7100) (list 4300 6500 6900 7100) (list 4300 5300 5900 6900) (list 4300 5300 7100 6900) (list 4300 6500 5900 6900) (list 4300 6500 7100 6900) (list 4300 5700 6500 7100) (list 4300 5900 6500 6900) (list 4500 5300 6700 7100) (list 4500 6500 6700 7100) (list 4500 5500 6500 7100) (list 4500 6700 6500 7100) (list 4700 5300 6700 6900) (list 4700 6500 6700 6900) (list 4700 5500 6500 6900) (list 4700 6700 6500 6900) (list 4200 5500 6800 6900) (list 4200 6700 6800 6900) (list 4200 5500 5700 6800) (list 4200 5500 6900 6800) (list 4200 6700 5700 6800) (list 4200 6700 6900 6800) (list 4200 5600 6700 6900) (list 4200 5700 6700 6800) (list 4300 5400 6800 6900) (list 4300 6600 6800 6900) (list 4300 5400 5700 6800) (list 4300 5400 6900 6800) (list 4300 6600 5700 6800) (list 4300 6600 6900 6800) (list 4300 5600 6600 6900) (list 4300 5700 6600 6800) (list 4400 5400 6700 6900) (list 4400 6600 6700 6900) (list 4400 5500 6600 6900) (list 4400 6700 6600 6900) (list 4500 5400 6700 6800) (list 4500 6600 6700 6800) (list 4500 5500 6600 6800) (list 4500 6700 6600 6800) (list 4200 5600 5800 7200) (list 4200 5600 7000 7200) (list 4200 5600 6000 7000) (list 4200 5600 7200 7000) (list 4200 5800 6800 7200) (list 4200 5800 6000 6800) (list 4200 5800 7200 6800) (list 4200 4800 6800 7000) (list 4200 6000 6800 7000) (list 5400 4800 6800 7000) (list 4200 4800 5800 6800) (list 4200 4800 7000 6800) (list 4200 6000 5800 6800) (list 4200 6000 7000 6800) (list 5400 4800 5800 6800) (list 5400 4800 7000 6800) (list 4400 5400 5800 7200) (list 4400 5400 7000 7200) (list 4400 6600 5800 7200) (list 4400 6600 7000 7200) (list 4400 5400 6000 7000) (list 4400 5400 7200 7000) (list 4400 6600 6000 7000) (list 4400 6600 7200 7000) (list 4400 5800 6600 7200) (list 4400 4800 6600 7000) (list 4400 6000 6600 7000) (list 5600 4800 6600 7000) (list 4600 5400 6800 7200) (list 4600 6600 6800 7200) (list 4600 5400 6000 6800) (list 4600 5400 7200 6800) (list 4600 6600 6000 6800) (list 4600 6600 7200 6800) (list 4600 5600 6600 7200) (list 4600 4800 6600 6800) (list 4600 6000 6600 6800) (list 5800 4800 6600 6800) (list 4800 5400 6800 7000) (list 4800 6600 6800 7000) (list 4800 5400 5800 6800) (list 4800 5400 7000 6800) (list 4800 6600 5800 6800) (list 4800 6600 7000 6800) (list 4800 5600 6600 7000) (list 4800 5800 6600 6800) (list 4300 5600 5700 7000) (list 4300 5600 6900 7000) (list 4300 5600 5800 6900) (list 4300 5600 7000 6900) (list 4300 5700 6800 7000) (list 4300 5700 5800 6800) (list 4300 5700 7000 6800) (list 4300 5800 6800 6900) (list 4300 5800 5700 6800) (list 4300 5800 6900 6800) (list 4400 5500 5700 7000) (list 4400 5500 6900 7000) (list 4400 6700 5700 7000) (list 4400 6700 6900 7000) (list 4400 5500 5800 6900) (list 4400 5500 7000 6900) (list 4400 6700 5800 6900) (list 4400 6700 7000 6900) (list 4400 5700 6700 7000) (list 4400 5800 6700 6900) (list 4500 5500 6800 7000) (list 4500 6700 6800 7000) (list 4500 5500 5800 6800) (list 4500 5500 7000 6800) (list 4500 6700 5800 6800) (list 4500 6700 7000 6800) (list 4500 5600 6700 7000) (list 4500 5800 6700 6800) (list 4600 5500 6800 6900) (list 4600 6700 6800 6900) (list 4600 5500 5700 6800) (list 4600 5500 6900 6800) (list 4600 6700 5700 6800) (list 4600 6700 6900 6800) (list 4600 5600 6700 6900) (list 4600 5700 6700 6800) (list 4300 5700 5900 7300) (list 4300 5700 7100 7300) (list 4300 5700 6100 7100) (list 4300 5900 5700 7300) (list 4300 5900 6900 7300) (list 4300 5900 6100 6900) (list 4300 4900 5700 7100) (list 4300 4900 6900 7100) (list 4300 6100 5700 7100) (list 4300 6100 6900 7100) (list 5500 4900 5700 7100) (list 5500 4900 6900 7100) (list 4300 4900 5900 6900) (list 4300 4900 7100 6900) (list 4300 6100 5900 6900) (list 4300 6100 7100 6900) (list 5500 4900 5900 6900) (list 5500 4900 7100 6900) (list 4500 5500 5900 7300) (list 4500 5500 7100 7300) (list 4500 6700 5900 7300) (list 4500 6700 7100 7300) (list 4500 5500 6100 7100) (list 4500 6700 6100 7100) (list 4500 5900 6700 7300) (list 4500 4900 6700 7100) (list 4500 6100 6700 7100) (list 5700 4900 6700 7100) (list 4700 5500 5700 7300) (list 4700 5500 6900 7300) (list 4700 6700 5700 7300) (list 4700 6700 6900 7300) (list 4700 5500 6100 6900) (list 4700 6700 6100 6900) (list 4700 5700 6700 7300) (list 4700 4900 6700 6900) (list 4700 6100 6700 6900) (list 4900 5500 5700 7100) (list 4900 5500 6900 7100) (list 4900 6700 5700 7100) (list 4900 6700 6900 7100) (list 4900 5500 5900 6900) (list 4900 5500 7100 6900) (list 4900 6700 5900 6900) (list 4900 6700 7100 6900) (list 4900 5700 6700 7100) (list 4900 5900 6700 6900) (list 4400 5700 5800 7100) (list 4400 5700 7000 7100) (list 4400 5700 5900 7000) (list 4400 5700 7100 7000) (list 4400 5800 5700 7100) (list 4400 5800 6900 7100) (list 4400 5800 5900 6900) (list 4400 5800 7100 6900) (list 4400 5900 5700 7000) (list 4400 5900 6900 7000) (list 4400 5900 5800 6900) (list 4400 5900 7000 6900) (list 4500 5600 5800 7100) (list 4500 5600 7000 7100) (list 4500 5600 5900 7000) (list 4500 5600 7100 7000) (list 4500 5800 6800 7100) (list 4500 5800 5900 6800) (list 4500 5800 7100 6800) (list 4500 5900 6800 7000) (list 4500 5900 5800 6800) (list 4500 5900 7000 6800) (list 4600 5600 5700 7100) (list 4600 5600 6900 7100) (list 4600 5600 5900 6900) (list 4600 5600 7100 6900) (list 4600 5700 6800 7100) (list 4600 5700 5900 6800) (list 4600 5700 7100 6800) (list 4600 5900 6800 6900) (list 4600 5900 5700 6800) (list 4600 5900 6900 6800) (list 4700 5600 5700 7000) (list 4700 5600 6900 7000) (list 4700 5600 5800 6900) (list 4700 5600 7000 6900) (list 4700 5700 6800 7000) (list 4700 5700 5800 6800) (list 4700 5700 7000 6800) (list 4700 5800 6800 6900) (list 4700 5800 5700 6800) (list 4700 5800 6900 6800) (list 4400 5800 6000 7400) (list 4400 5800 7200 7400) (list 4400 5800 6200 7200) (list 4400 4800 5800 7400) (list 4400 4800 7000 7400) (list 4400 6000 5800 7400) (list 4400 6000 7000 7400) (list 5600 4800 5800 7400) (list 5600 4800 7000 7400) (list 4400 4800 6200 7000) (list 4400 6000 6200 7000) (list 5600 4800 6200 7000) (list 4400 5000 5800 7200) (list 4400 5000 7000 7200) (list 4400 6200 5800 7200) (list 4400 6200 7000 7200) (list 5600 5000 5800 7200) (list 5600 5000 7000 7200) (list 4400 5000 6000 7000) (list 4400 5000 7200 7000) (list 4400 6200 6000 7000) (list 4400 6200 7200 7000) (list 5600 5000 6000 7000) (list 5600 5000 7200 7000) (list 4600 5600 6000 7400) (list 4600 5600 7200 7400) (list 4600 5600 6200 7200) (list 4600 4800 6800 7400) (list 4600 6000 6800 7400) (list 5800 4800 6800 7400) (list 4600 4800 6200 6800) (list 4600 6000 6200 6800) (list 5800 4800 6200 6800) (list 4600 5000 6800 7200) (list 4600 6200 6800 7200) (list 5800 5000 6800 7200) (list 4600 5000 6000 6800) (list 4600 5000 7200 6800) (list 4600 6200 6000 6800) (list 4600 6200 7200 6800) (list 5800 5000 6000 6800) (list 5800 5000 7200 6800) (list 4800 5600 5800 7400) (list 4800 5600 7000 7400) (list 4800 5600 6200 7000) (list 4800 5800 6800 7400) (list 4800 5800 6200 6800) (list 4800 5000 6800 7000) (list 4800 6200 6800 7000) (list 4800 5000 5800 6800) (list 4800 5000 7000 6800) (list 4800 6200 5800 6800) (list 4800 6200 7000 6800) (list 5000 5600 5800 7200) (list 5000 5600 7000 7200) (list 5000 5600 6000 7000) (list 5000 5600 7200 7000) (list 5000 5800 6800 7200) (list 5000 5800 6000 6800) (list 5000 5800 7200 6800) (list 5000 4800 6800 7000) (list 5000 6000 6800 7000) (list 5000 4800 5800 6800) (list 5000 4800 7000 6800) (list 5000 6000 5800 6800) (list 5000 6000 7000 6800) (list 4500 5800 5900 7200) (list 4500 5800 7100 7200) (list 4500 5800 6000 7100) (list 4500 5800 7200 7100) (list 4500 5900 5800 7200) (list 4500 5900 7000 7200) (list 4500 5900 6000 7000) (list 4500 5900 7200 7000) (list 4500 4800 5800 7100) (list 4500 4800 7000 7100) (list 4500 6000 5800 7100) (list 4500 6000 7000 7100) (list 5700 4800 5800 7100) (list 5700 4800 7000 7100) (list 4500 4800 5900 7000) (list 4500 4800 7100 7000) (list 4500 6000 5900 7000) (list 4500 6000 7100 7000) (list 5700 4800 5900 7000) (list 5700 4800 7100 7000) (list 4600 5700 5900 7200) (list 4600 5700 7100 7200) (list 4600 5700 6000 7100) (list 4600 5700 7200 7100) (list 4600 5900 5700 7200) (list 4600 5900 6900 7200) (list 4600 5900 6000 6900) (list 4600 5900 7200 6900) (list 4600 4800 5700 7100) (list 4600 4800 6900 7100) (list 4600 6000 5700 7100) (list 4600 6000 6900 7100) (list 5800 4800 5700 7100) (list 5800 4800 6900 7100) (list 4600 4800 5900 6900) (list 4600 4800 7100 6900) (list 4600 6000 5900 6900) (list 4600 6000 7100 6900) (list 5800 4800 5900 6900) (list 5800 4800 7100 6900) (list 4700 5700 5800 7200) (list 4700 5700 7000 7200) (list 4700 5700 6000 7000) (list 4700 5700 7200 7000) (list 4700 5800 5700 7200) (list 4700 5800 6900 7200) (list 4700 5800 6000 6900) (list 4700 5800 7200 6900) (list 4700 4800 5700 7000) (list 4700 4800 6900 7000) (list 4700 6000 5700 7000) (list 4700 6000 6900 7000) (list 4700 4800 5800 6900) (list 4700 4800 7000 6900) (list 4700 6000 5800 6900) (list 4700 6000 7000 6900) (list 4800 5700 5800 7100) (list 4800 5700 7000 7100) (list 4800 5700 5900 7000) (list 4800 5700 7100 7000) (list 4800 5800 5700 7100) (list 4800 5800 6900 7100) (list 4800 5800 5900 6900) (list 4800 5800 7100 6900) (list 4800 5900 5700 7000) (list 4800 5900 6900 7000) (list 4800 5900 5800 6900) (list 4800 5900 7000 6900) (list 4500 5900 6100 7500) (list 4500 5900 6300 7300) (list 4500 4900 5900 7500) (list 4500 4900 7100 7500) (list 4500 6100 5900 7500) (list 4500 6100 7100 7500) (list 5700 4900 5900 7500) (list 5700 4900 7100 7500) (list 4500 4900 6300 7100) (list 4500 6100 6300 7100) (list 5700 4900 6300 7100) (list 4500 5100 5900 7300) (list 4500 5100 7100 7300) (list 4500 6300 5900 7300) (list 4500 6300 7100 7300) (list 5700 5100 5900 7300) (list 5700 5100 7100 7300) (list 4500 5100 6100 7100) (list 4500 6300 6100 7100) (list 5700 5100 6100 7100) (list 4700 5700 6100 7500) (list 4700 5700 6300 7300) (list 4700 4900 5700 7500) (list 4700 4900 6900 7500) (list 4700 6100 5700 7500) (list 4700 6100 6900 7500) (list 4700 4900 6300 6900) (list 4700 6100 6300 6900) (list 4700 5100 5700 7300) (list 4700 5100 6900 7300) (list 4700 6300 5700 7300) (list 4700 6300 6900 7300) (list 4700 5100 6100 6900) (list 4700 6300 6100 6900) (list 4900 5700 5900 7500) (list 4900 5700 7100 7500) (list 4900 5700 6300 7100) (list 4900 5900 5700 7500) (list 4900 5900 6900 7500) (list 4900 5900 6300 6900) (list 4900 5100 5700 7100) (list 4900 5100 6900 7100) (list 4900 6300 5700 7100) (list 4900 6300 6900 7100) (list 4900 5100 5900 6900) (list 4900 5100 7100 6900) (list 4900 6300 5900 6900) (list 4900 6300 7100 6900) (list 5100 5700 5900 7300) (list 5100 5700 7100 7300) (list 5100 5700 6100 7100) (list 5100 5900 5700 7300) (list 5100 5900 6900 7300) (list 5100 5900 6100 6900) (list 5100 4900 5700 7100) (list 5100 4900 6900 7100) (list 5100 6100 5700 7100) (list 5100 6100 6900 7100) (list 5100 4900 5900 6900) (list 5100 4900 7100 6900) (list 5100 6100 5900 6900) (list 5100 6100 7100 6900) (list 4600 5900 6000 7300) (list 4600 5900 7200 7300) (list 4600 5900 6100 7200) (list 4600 4800 5900 7300) (list 4600 4800 7100 7300) (list 4600 6000 5900 7300) (list 4600 6000 7100 7300) (list 5800 4800 5900 7300) (list 5800 4800 7100 7300) (list 4600 4800 6100 7100) (list 4600 6000 6100 7100) (list 5800 4800 6100 7100) (list 4600 4900 5900 7200) (list 4600 4900 7100 7200) (list 4600 6100 5900 7200) (list 4600 6100 7100 7200) (list 5800 4900 5900 7200) (list 5800 4900 7100 7200) (list 4600 4900 6000 7100) (list 4600 4900 7200 7100) (list 4600 6100 6000 7100) (list 4600 6100 7200 7100) (list 5800 4900 6000 7100) (list 5800 4900 7200 7100) (list 4700 5800 6000 7300) (list 4700 5800 7200 7300) (list 4700 5800 6100 7200) (list 4700 4800 5800 7300) (list 4700 4800 7000 7300) (list 4700 6000 5800 7300) (list 4700 6000 7000 7300) (list 4700 4800 6100 7000) (list 4700 6000 6100 7000) (list 4700 4900 5800 7200) (list 4700 4900 7000 7200) (list 4700 6100 5800 7200) (list 4700 6100 7000 7200) (list 4700 4900 6000 7000) (list 4700 4900 7200 7000) (list 4700 6100 6000 7000) (list 4700 6100 7200 7000) (list 4800 5800 5900 7300) (list 4800 5800 7100 7300) (list 4800 5800 6100 7100) (list 4800 5900 5800 7300) (list 4800 5900 7000 7300) (list 4800 5900 6100 7000) (list 4800 4900 5800 7100) (list 4800 4900 7000 7100) (list 4800 6100 5800 7100) (list 4800 6100 7000 7100) (list 4800 4900 5900 7000) (list 4800 4900 7100 7000) (list 4800 6100 5900 7000) (list 4800 6100 7100 7000) (list 4900 5800 5900 7200) (list 4900 5800 7100 7200) (list 4900 5800 6000 7100) (list 4900 5800 7200 7100) (list 4900 5900 5800 7200) (list 4900 5900 7000 7200) (list 4900 5900 6000 7000) (list 4900 5900 7200 7000) (list 4900 4800 5800 7100) (list 4900 4800 7000 7100) (list 4900 6000 5800 7100) (list 4900 6000 7000 7100) (list 4900 4800 5900 7000) (list 4900 4800 7100 7000) (list 4900 6000 5900 7000) (list 4900 6000 7100 7000) (list 4600 4800 6200 7600) (list 4600 6000 6200 7600) (list 5800 4800 6200 7600) (list 4600 4800 6400 7400) (list 4600 6000 6400 7400) (list 5800 4800 6400 7400) (list 4600 5000 6000 7600) (list 4600 5000 7200 7600) (list 4600 6200 6000 7600) (list 4600 6200 7200 7600) (list 5800 5000 6000 7600) (list 5800 5000 7200 7600) (list 4600 5000 6400 7200) (list 4600 6200 6400 7200) (list 5800 5000 6400 7200) (list 4600 5200 6000 7400) (list 4600 5200 7200 7400) (list 4600 6400 6000 7400) (list 4600 6400 7200 7400) (list 5800 5200 6000 7400) (list 5800 5200 7200 7400) (list 4600 5200 6200 7200) (list 4600 6400 6200 7200) (list 5800 5200 6200 7200) (list 4800 5800 6200 7600) (list 4800 5800 6400 7400) (list 4800 5000 5800 7600) (list 4800 5000 7000 7600) (list 4800 6200 5800 7600) (list 4800 6200 7000 7600) (list 4800 5000 6400 7000) (list 4800 6200 6400 7000) (list 4800 5200 5800 7400) (list 4800 5200 7000 7400) (list 4800 6400 5800 7400) (list 4800 6400 7000 7400) (list 4800 5200 6200 7000) (list 4800 6400 6200 7000) (list 5000 5800 6000 7600) (list 5000 5800 7200 7600) (list 5000 5800 6400 7200) (list 5000 4800 5800 7600) (list 5000 4800 7000 7600) (list 5000 6000 5800 7600) (list 5000 6000 7000 7600) (list 5000 4800 6400 7000) (list 5000 6000 6400 7000) (list 5000 5200 5800 7200) (list 5000 5200 7000 7200) (list 5000 6400 5800 7200) (list 5000 6400 7000 7200) (list 5000 5200 6000 7000) (list 5000 5200 7200 7000) (list 5000 6400 6000 7000) (list 5000 6400 7200 7000) (list 5200 5800 6000 7400) (list 5200 5800 7200 7400) (list 5200 5800 6200 7200) (list 5200 4800 5800 7400) (list 5200 4800 7000 7400) (list 5200 6000 5800 7400) (list 5200 6000 7000 7400) (list 5200 4800 6200 7000) (list 5200 6000 6200 7000) (list 5200 5000 5800 7200) (list 5200 5000 7000 7200) (list 5200 6200 5800 7200) (list 5200 6200 7000 7200) (list 5200 5000 6000 7000) (list 5200 5000 7200 7000) (list 5200 6200 6000 7000) (list 5200 6200 7200 7000) (list 4700 4800 6100 7400) (list 4700 6000 6100 7400) (list 4700 4800 6200 7300) (list 4700 6000 6200 7300) (list 4700 4900 6000 7400) (list 4700 4900 7200 7400) (list 4700 6100 6000 7400) (list 4700 6100 7200 7400) (list 4700 4900 6200 7200) (list 4700 6100 6200 7200) (list 4700 5000 6000 7300) (list 4700 5000 7200 7300) (list 4700 6200 6000 7300) (list 4700 6200 7200 7300) (list 4700 5000 6100 7200) (list 4700 6200 6100 7200) (list 4800 5900 6100 7400) (list 4800 5900 6200 7300) (list 4800 4900 5900 7400) (list 4800 4900 7100 7400) (list 4800 6100 5900 7400) (list 4800 6100 7100 7400) (list 4800 4900 6200 7100) (list 4800 6100 6200 7100) (list 4800 5000 5900 7300) (list 4800 5000 7100 7300) (list 4800 6200 5900 7300) (list 4800 6200 7100 7300) (list 4800 5000 6100 7100) (list 4800 6200 6100 7100) (list 4900 5900 6000 7400) (list 4900 5900 7200 7400) (list 4900 5900 6200 7200) (list 4900 4800 5900 7400) (list 4900 4800 7100 7400) (list 4900 6000 5900 7400) (list 4900 6000 7100 7400) (list 4900 4800 6200 7100) (list 4900 6000 6200 7100) (list 4900 5000 5900 7200) (list 4900 5000 7100 7200) (list 4900 6200 5900 7200) (list 4900 6200 7100 7200) (list 4900 5000 6000 7100) (list 4900 5000 7200 7100) (list 4900 6200 6000 7100) (list 4900 6200 7200 7100) (list 5000 5900 6000 7300) (list 5000 5900 7200 7300) (list 5000 5900 6100 7200) (list 5000 4800 5900 7300) (list 5000 4800 7100 7300) (list 5000 6000 5900 7300) (list 5000 6000 7100 7300) (list 5000 4800 6100 7100) (list 5000 6000 6100 7100) (list 5000 4900 5900 7200) (list 5000 4900 7100 7200) (list 5000 6100 5900 7200) (list 5000 6100 7100 7200) (list 5000 4900 6000 7100) (list 5000 4900 7200 7100) (list 5000 6100 6000 7100) (list 5000 6100 7200 7100) (list 4700 4900 6300 7700) (list 4700 6100 6300 7700) (list 4700 4900 6500 7500) (list 4700 6100 6500 7500) (list 4700 5100 6100 7700) (list 4700 6300 6100 7700) (list 4700 5100 6500 7300) (list 4700 6300 6500 7300) (list 4700 5300 6100 7500) (list 4700 6500 6100 7500) (list 4700 5300 6300 7300) (list 4700 6500 6300 7300) (list 4900 5900 6300 7700) (list 4900 5900 6500 7500) (list 4900 5100 5900 7700) (list 4900 5100 7100 7700) (list 4900 6300 5900 7700) (list 4900 6300 7100 7700) (list 4900 5100 6500 7100) (list 4900 6300 6500 7100) (list 4900 5300 5900 7500) (list 4900 5300 7100 7500) (list 4900 6500 5900 7500) (list 4900 6500 7100 7500) (list 4900 5300 6300 7100) (list 4900 6500 6300 7100) (list 5100 5900 6100 7700) (list 5100 5900 6500 7300) (list 5100 4900 5900 7700) (list 5100 4900 7100 7700) (list 5100 6100 5900 7700) (list 5100 6100 7100 7700) (list 5100 4900 6500 7100) (list 5100 6100 6500 7100) (list 5100 5300 5900 7300) (list 5100 5300 7100 7300) (list 5100 6500 5900 7300) (list 5100 6500 7100 7300) (list 5100 5300 6100 7100) (list 5100 6500 6100 7100) (list 5300 5900 6100 7500) (list 5300 5900 6300 7300) (list 5300 4900 5900 7500) (list 5300 4900 7100 7500) (list 5300 6100 5900 7500) (list 5300 6100 7100 7500) (list 5300 4900 6300 7100) (list 5300 6100 6300 7100) (list 5300 5100 5900 7300) (list 5300 5100 7100 7300) (list 5300 6300 5900 7300) (list 5300 6300 7100 7300) (list 5300 5100 6100 7100) (list 5300 6300 6100 7100) (list 4800 4900 6200 7500) (list 4800 6100 6200 7500) (list 4800 4900 6300 7400) (list 4800 6100 6300 7400) (list 4800 5000 6100 7500) (list 4800 6200 6100 7500) (list 4800 5000 6300 7300) (list 4800 6200 6300 7300) (list 4800 5100 6100 7400) (list 4800 6300 6100 7400) (list 4800 5100 6200 7300) (list 4800 6300 6200 7300) (list 4900 4800 6200 7500) (list 4900 6000 6200 7500) (list 4900 4800 6300 7400) (list 4900 6000 6300 7400) (list 4900 5000 6000 7500) (list 4900 5000 7200 7500) (list 4900 6200 6000 7500) (list 4900 6200 7200 7500) (list 4900 5000 6300 7200) (list 4900 6200 6300 7200) (list 4900 5100 6000 7400) (list 4900 5100 7200 7400) (list 4900 6300 6000 7400) (list 4900 6300 7200 7400) (list 4900 5100 6200 7200) (list 4900 6300 6200 7200) (list 5000 4800 6100 7500) (list 5000 6000 6100 7500) (list 5000 4800 6300 7300) (list 5000 6000 6300 7300) (list 5000 4900 6000 7500) (list 5000 4900 7200 7500) (list 5000 6100 6000 7500) (list 5000 6100 7200 7500) (list 5000 4900 6300 7200) (list 5000 6100 6300 7200) (list 5000 5100 6000 7300) (list 5000 5100 7200 7300) (list 5000 6300 6000 7300) (list 5000 6300 7200 7300) (list 5000 5100 6100 7200) (list 5000 6300 6100 7200) (list 5100 4800 6100 7400) (list 5100 6000 6100 7400) (list 5100 4800 6200 7300) (list 5100 6000 6200 7300) (list 5100 4900 6000 7400) (list 5100 4900 7200 7400) (list 5100 6100 6000 7400) (list 5100 6100 7200 7400) (list 5100 4900 6200 7200) (list 5100 6100 6200 7200) (list 5100 5000 6000 7300) (list 5100 5000 7200 7300) (list 5100 6200 6000 7300) (list 5100 6200 7200 7300) (list 5100 5000 6100 7200) (list 5100 6200 6100 7200) (list 4800 5000 6400 7800) (list 4800 6200 6400 7800) (list 4800 5000 6600 7600) (list 4800 6200 6600 7600) (list 4800 5200 6200 7800) (list 4800 6400 6200 7800) (list 4800 5200 6600 7400) (list 4800 6400 6600 7400) (list 4800 5400 6200 7600) (list 4800 6600 6200 7600) (list 4800 5400 6400 7400) (list 4800 6600 6400 7400) (list 5000 4800 6400 7800) (list 5000 6000 6400 7800) (list 5000 4800 6600 7600) (list 5000 6000 6600 7600) (list 5000 5200 6000 7800) (list 5000 5200 7200 7800) (list 5000 6400 6000 7800) (list 5000 6400 7200 7800) (list 5000 5200 6600 7200) (list 5000 6400 6600 7200) (list 5000 5400 6000 7600) (list 5000 5400 7200 7600) (list 5000 6600 6000 7600) (list 5000 6600 7200 7600) (list 5000 5400 6400 7200) (list 5000 6600 6400 7200) (list 5200 4800 6200 7800) (list 5200 6000 6200 7800) (list 5200 4800 6600 7400) (list 5200 6000 6600 7400) (list 5200 5000 6000 7800) (list 5200 5000 7200 7800) (list 5200 6200 6000 7800) (list 5200 6200 7200 7800) (list 5200 5000 6600 7200) (list 5200 6200 6600 7200) (list 5200 5400 6000 7400) (list 5200 5400 7200 7400) (list 5200 6600 6000 7400) (list 5200 6600 7200 7400) (list 5200 5400 6200 7200) (list 5200 6600 6200 7200) (list 5400 4800 6200 7600) (list 5400 6000 6200 7600) (list 5400 4800 6400 7400) (list 5400 6000 6400 7400) (list 5400 5000 6000 7600) (list 5400 5000 7200 7600) (list 5400 6200 6000 7600) (list 5400 6200 7200 7600) (list 5400 5000 6400 7200) (list 5400 6200 6400 7200) (list 5400 5200 6000 7400) (list 5400 5200 7200 7400) (list 5400 6400 6000 7400) (list 5400 6400 7200 7400) (list 5400 5200 6200 7200) (list 5400 6400 6200 7200) (list 4900 5000 6300 7600) (list 4900 6200 6300 7600) (list 4900 5000 6400 7500) (list 4900 6200 6400 7500) (list 4900 5100 6200 7600) (list 4900 6300 6200 7600) (list 4900 5100 6400 7400) (list 4900 6300 6400 7400) (list 4900 5200 6200 7500) (list 4900 6400 6200 7500) (list 4900 5200 6300 7400) (list 4900 6400 6300 7400) (list 5000 4900 6300 7600) (list 5000 6100 6300 7600) (list 5000 4900 6400 7500) (list 5000 6100 6400 7500) (list 5000 5100 6100 7600) (list 5000 6300 6100 7600) (list 5000 5100 6400 7300) (list 5000 6300 6400 7300) (list 5000 5200 6100 7500) (list 5000 6400 6100 7500) (list 5000 5200 6300 7300) (list 5000 6400 6300 7300) (list 5100 4900 6200 7600) (list 5100 6100 6200 7600) (list 5100 4900 6400 7400) (list 5100 6100 6400 7400) (list 5100 5000 6100 7600) (list 5100 6200 6100 7600) (list 5100 5000 6400 7300) (list 5100 6200 6400 7300) (list 5100 5200 6100 7400) (list 5100 6400 6100 7400) (list 5100 5200 6200 7300) (list 5100 6400 6200 7300) (list 5200 4900 6200 7500) (list 5200 6100 6200 7500) (list 5200 4900 6300 7400) (list 5200 6100 6300 7400) (list 5200 5000 6100 7500) (list 5200 6200 6100 7500) (list 5200 5000 6300 7300) (list 5200 6200 6300 7300) (list 5200 5100 6100 7400) (list 5200 6300 6100 7400) (list 5200 5100 6200 7300) (list 5200 6300 6200 7300) (list 4900 5100 6500 7900) (list 4900 6300 6500 7900) (list 4900 5100 6700 7700) (list 4900 6300 6700 7700) (list 4900 5300 6300 7900) (list 4900 6500 6300 7900) (list 4900 5300 6700 7500) (list 4900 6500 6700 7500) (list 4900 5500 6300 7700) (list 4900 6700 6300 7700) (list 4900 5500 6500 7500) (list 4900 6700 6500 7500) (list 5100 4900 6500 7900) (list 5100 6100 6500 7900) (list 5100 4900 6700 7700) (list 5100 6100 6700 7700) (list 5100 5300 6100 7900) (list 5100 6500 6100 7900) (list 5100 5300 6700 7300) (list 5100 6500 6700 7300) (list 5100 5500 6100 7700) (list 5100 6700 6100 7700) (list 5100 5500 6500 7300) (list 5100 6700 6500 7300) (list 5300 4900 6300 7900) (list 5300 6100 6300 7900) (list 5300 4900 6700 7500) (list 5300 6100 6700 7500) (list 5300 5100 6100 7900) (list 5300 6300 6100 7900) (list 5300 5100 6700 7300) (list 5300 6300 6700 7300) (list 5300 5500 6100 7500) (list 5300 6700 6100 7500) (list 5300 5500 6300 7300) (list 5300 6700 6300 7300) (list 5500 4900 6300 7700) (list 5500 6100 6300 7700) (list 5500 4900 6500 7500) (list 5500 6100 6500 7500) (list 5500 5100 6100 7700) (list 5500 6300 6100 7700) (list 5500 5100 6500 7300) (list 5500 6300 6500 7300) (list 5500 5300 6100 7500) (list 5500 6500 6100 7500) (list 5500 5300 6300 7300) (list 5500 6500 6300 7300) (list 5000 5100 6400 7700) (list 5000 6300 6400 7700) (list 5000 5100 6500 7600) (list 5000 6300 6500 7600) (list 5000 5200 6300 7700) (list 5000 6400 6300 7700) (list 5000 5200 6500 7500) (list 5000 6400 6500 7500) (list 5000 5300 6300 7600) (list 5000 6500 6300 7600) (list 5000 5300 6400 7500) (list 5000 6500 6400 7500) (list 5100 5000 6400 7700) (list 5100 6200 6400 7700) (list 5100 5000 6500 7600) (list 5100 6200 6500 7600) (list 5100 5200 6200 7700) (list 5100 6400 6200 7700) (list 5100 5200 6500 7400) (list 5100 6400 6500 7400) (list 5100 5300 6200 7600) (list 5100 6500 6200 7600) (list 5100 5300 6400 7400) (list 5100 6500 6400 7400) (list 5200 5000 6300 7700) (list 5200 6200 6300 7700) (list 5200 5000 6500 7500) (list 5200 6200 6500 7500) (list 5200 5100 6200 7700) (list 5200 6300 6200 7700) (list 5200 5100 6500 7400) (list 5200 6300 6500 7400) (list 5200 5300 6200 7500) (list 5200 6500 6200 7500) (list 5200 5300 6300 7400) (list 5200 6500 6300 7400) (list 5300 5000 6300 7600) (list 5300 6200 6300 7600) (list 5300 5000 6400 7500) (list 5300 6200 6400 7500) (list 5300 5100 6200 7600) (list 5300 6300 6200 7600) (list 5300 5100 6400 7400) (list 5300 6300 6400 7400) (list 5300 5200 6200 7500) (list 5300 6400 6200 7500) (list 5300 5200 6300 7400) (list 5300 6400 6300 7400) (list 5000 5200 6600 6800) (list 5000 5200 6600 8000) (list 5000 6400 6600 6800) (list 5000 6400 6600 8000) (list 5000 5200 6800 7800) (list 5000 6400 6800 7800) (list 5000 5400 6400 6800) (list 5000 5400 6400 8000) (list 5000 6600 6400 6800) (list 5000 6600 6400 8000) (list 5000 5400 6800 7600) (list 5000 6600 6800 7600) (list 5000 5600 6400 7800) (list 5000 5600 6600 7600) (list 5200 5000 6600 6800) (list 5200 5000 6600 8000) (list 5200 6200 6600 6800) (list 5200 6200 6600 8000) (list 5200 5000 6800 7800) (list 5200 6200 6800 7800) (list 5200 5400 6200 6800) (list 5200 5400 6200 8000) (list 5200 6600 6200 6800) (list 5200 6600 6200 8000) (list 5200 5400 6800 7400) (list 5200 6600 6800 7400) (list 5200 5600 6200 7800) (list 5200 5600 6600 7400) (list 5400 5000 6400 6800) (list 5400 5000 6400 8000) (list 5400 6200 6400 6800) (list 5400 6200 6400 8000) (list 5400 5000 6800 7600) (list 5400 6200 6800 7600) (list 5400 5200 6200 6800) (list 5400 5200 6200 8000) (list 5400 6400 6200 6800) (list 5400 6400 6200 8000) (list 5400 5200 6800 7400) (list 5400 6400 6800 7400) (list 5400 5600 6200 7600) (list 5400 5600 6400 7400) (list 5600 5000 6400 7800) (list 5600 6200 6400 7800) (list 5600 5000 6600 7600) (list 5600 6200 6600 7600) (list 5600 5200 6200 7800) (list 5600 6400 6200 7800) (list 5600 5200 6600 7400) (list 5600 6400 6600 7400) (list 5600 5400 6200 7600) (list 5600 6600 6200 7600) (list 5600 5400 6400 7400) (list 5600 6600 6400 7400) (list 5100 5200 6500 7800) (list 5100 6400 6500 7800) (list 5100 5200 6600 7700) (list 5100 6400 6600 7700) (list 5100 5300 6400 7800) (list 5100 6500 6400 7800) (list 5100 5300 6600 7600) (list 5100 6500 6600 7600) (list 5100 5400 6400 7700) (list 5100 6600 6400 7700) (list 5100 5400 6500 7600) (list 5100 6600 6500 7600) (list 5200 5100 6500 7800) (list 5200 6300 6500 7800) (list 5200 5100 6600 7700) (list 5200 6300 6600 7700) (list 5200 5300 6300 7800) (list 5200 6500 6300 7800) (list 5200 5300 6600 7500) (list 5200 6500 6600 7500) (list 5200 5400 6300 7700) (list 5200 6600 6300 7700) (list 5200 5400 6500 7500) (list 5200 6600 6500 7500) (list 5300 5100 6400 7800) (list 5300 6300 6400 7800) (list 5300 5100 6600 7600) (list 5300 6300 6600 7600) (list 5300 5200 6300 7800) (list 5300 6400 6300 7800) (list 5300 5200 6600 7500) (list 5300 6400 6600 7500) (list 5300 5400 6300 7600) (list 5300 6600 6300 7600) (list 5300 5400 6400 7500) (list 5300 6600 6400 7500) (list 5400 5100 6400 7700) (list 5400 6300 6400 7700) (list 5400 5100 6500 7600) (list 5400 6300 6500 7600) (list 5400 5200 6300 7700) (list 5400 6400 6300 7700) (list 5400 5200 6500 7500) (list 5400 6400 6500 7500) (list 5400 5300 6300 7600) (list 5400 6500 6300 7600) (list 5400 5300 6400 7500) (list 5400 6500 6400 7500) (list 5100 5300 6700 6900) (list 5100 5300 6700 8100) (list 5100 6500 6700 6900) (list 5100 6500 6700 8100) (list 5100 5300 5700 7900) (list 5100 5300 6900 7900) (list 5100 6500 5700 7900) (list 5100 6500 6900 7900) (list 5100 5500 6500 6900) (list 5100 5500 6500 8100) (list 5100 6700 6500 6900) (list 5100 6700 6500 8100) (list 5100 5500 5700 7700) (list 5100 5500 6900 7700) (list 5100 6700 5700 7700) (list 5100 6700 6900 7700) (list 5100 5700 6500 7900) (list 5100 5700 6700 7700) (list 5300 5100 6700 6900) (list 5300 5100 6700 8100) (list 5300 6300 6700 6900) (list 5300 6300 6700 8100) (list 5300 5100 5700 7900) (list 5300 5100 6900 7900) (list 5300 6300 5700 7900) (list 5300 6300 6900 7900) (list 5300 5500 6300 6900) (list 5300 5500 6300 8100) (list 5300 6700 6300 6900) (list 5300 6700 6300 8100) (list 5300 5500 5700 7500) (list 5300 5500 6900 7500) (list 5300 6700 5700 7500) (list 5300 6700 6900 7500) (list 5300 5700 6300 7900) (list 5300 5700 6700 7500) (list 5500 5100 6500 6900) (list 5500 5100 6500 8100) (list 5500 6300 6500 6900) (list 5500 6300 6500 8100) (list 5500 5100 5700 7700) (list 5500 5100 6900 7700) (list 5500 6300 5700 7700) (list 5500 6300 6900 7700) (list 5500 5300 6300 6900) (list 5500 5300 6300 8100) (list 5500 6500 6300 6900) (list 5500 6500 6300 8100) (list 5500 5300 5700 7500) (list 5500 5300 6900 7500) (list 5500 6500 5700 7500) (list 5500 6500 6900 7500) (list 5500 5700 6300 7700) (list 5500 5700 6500 7500) (list 5700 5100 6500 7900) (list 5700 6300 6500 7900) (list 5700 5100 6700 7700) (list 5700 6300 6700 7700) (list 5700 5300 6300 7900) (list 5700 6500 6300 7900) (list 5700 5300 6700 7500) (list 5700 6500 6700 7500) (list 5700 5500 6300 7700) (list 5700 6700 6300 7700) (list 5700 5500 6500 7500) (list 5700 6700 6500 7500) (list 5200 5300 6600 7900) (list 5200 6500 6600 7900) (list 5200 5300 6700 7800) (list 5200 6500 6700 7800) (list 5200 5400 6500 7900) (list 5200 6600 6500 7900) (list 5200 5400 6700 7700) (list 5200 6600 6700 7700) (list 5200 5500 6500 7800) (list 5200 6700 6500 7800) (list 5200 5500 6600 7700) (list 5200 6700 6600 7700) (list 5300 5200 6600 7900) (list 5300 6400 6600 7900) (list 5300 5200 6700 7800) (list 5300 6400 6700 7800) (list 5300 5400 6400 7900) (list 5300 6600 6400 7900) (list 5300 5400 6700 7600) (list 5300 6600 6700 7600) (list 5300 5500 6400 7800) (list 5300 6700 6400 7800) (list 5300 5500 6600 7600) (list 5300 6700 6600 7600) (list 5400 5200 6500 7900) (list 5400 6400 6500 7900) (list 5400 5200 6700 7700) (list 5400 6400 6700 7700) (list 5400 5300 6400 7900) (list 5400 6500 6400 7900) (list 5400 5300 6700 7600) (list 5400 6500 6700 7600) (list 5400 5500 6400 7700) (list 5400 6700 6400 7700) (list 5400 5500 6500 7600) (list 5400 6700 6500 7600) (list 5500 5200 6500 7800) (list 5500 6400 6500 7800) (list 5500 5200 6600 7700) (list 5500 6400 6600 7700) (list 5500 5300 6400 7800) (list 5500 6500 6400 7800) (list 5500 5300 6600 7600) (list 5500 6500 6600 7600) (list 5500 5400 6400 7700) (list 5500 6600 6400 7700) (list 5500 5400 6500 7600) (list 5500 6600 6500 7600) (list 5200 5400 6800 7000) (list 5200 5400 6800 8200) (list 5200 6600 6800 7000) (list 5200 6600 6800 8200) (list 5200 5400 5800 6800) (list 5200 5400 5800 8000) (list 5200 5400 7000 6800) (list 5200 5400 7000 8000) (list 5200 6600 5800 6800) (list 5200 6600 5800 8000) (list 5200 6600 7000 6800) (list 5200 6600 7000 8000) (list 5200 5600 6600 7000) (list 5200 5600 6600 8200) (list 5200 5600 5800 7800) (list 5200 5600 7000 7800) (list 5200 5800 6600 6800) (list 5200 5800 6600 8000) (list 5200 5800 6800 7800) (list 5400 5200 6800 7000) (list 5400 5200 6800 8200) (list 5400 6400 6800 7000) (list 5400 6400 6800 8200) (list 5400 5200 5800 6800) (list 5400 5200 5800 8000) (list 5400 5200 7000 6800) (list 5400 5200 7000 8000) (list 5400 6400 5800 6800) (list 5400 6400 5800 8000) (list 5400 6400 7000 6800) (list 5400 6400 7000 8000) (list 5400 5600 6400 7000) (list 5400 5600 6400 8200) (list 5400 5600 5800 7600) (list 5400 5600 7000 7600) (list 5400 5800 6400 6800) (list 5400 5800 6400 8000) (list 5400 5800 6800 7600) (list 5600 5200 6600 7000) (list 5600 5200 6600 8200) (list 5600 6400 6600 7000) (list 5600 6400 6600 8200) (list 5600 5200 5800 7800) (list 5600 5200 7000 7800) (list 5600 6400 5800 7800) (list 5600 6400 7000 7800) (list 5600 5400 6400 7000) (list 5600 5400 6400 8200) (list 5600 6600 6400 7000) (list 5600 6600 6400 8200) (list 5600 5400 5800 7600) (list 5600 5400 7000 7600) (list 5600 6600 5800 7600) (list 5600 6600 7000 7600) (list 5600 5800 6400 7800) (list 5600 5800 6600 7600) (list 5800 5200 6600 6800) (list 5800 5200 6600 8000) (list 5800 6400 6600 6800) (list 5800 6400 6600 8000) (list 5800 5200 6800 7800) (list 5800 6400 6800 7800) (list 5800 5400 6400 6800) (list 5800 5400 6400 8000) (list 5800 6600 6400 6800) (list 5800 6600 6400 8000) (list 5800 5400 6800 7600) (list 5800 6600 6800 7600) (list 5800 5600 6400 7800) (list 5800 5600 6600 7600) (list 5300 5400 6700 6800) (list 5300 5400 6700 8000) (list 5300 6600 6700 6800) (list 5300 6600 6700 8000) (list 5300 5400 6800 7900) (list 5300 6600 6800 7900) (list 5300 5500 6600 6800) (list 5300 5500 6600 8000) (list 5300 6700 6600 6800) (list 5300 6700 6600 8000) (list 5300 5500 6800 7800) (list 5300 6700 6800 7800) (list 5300 5600 6600 7900) (list 5300 5600 6700 7800) (list 5400 5300 6700 6800) (list 5400 5300 6700 8000) (list 5400 6500 6700 6800) (list 5400 6500 6700 8000) (list 5400 5300 6800 7900) (list 5400 6500 6800 7900) (list 5400 5500 6500 6800) (list 5400 5500 6500 8000) (list 5400 6700 6500 6800) (list 5400 6700 6500 8000) (list 5400 5500 6800 7700) (list 5400 6700 6800 7700) (list 5400 5600 6500 7900) (list 5400 5600 6700 7700) (list 5500 5300 6600 6800) (list 5500 5300 6600 8000) (list 5500 6500 6600 6800) (list 5500 6500 6600 8000) (list 5500 5300 6800 7800) (list 5500 6500 6800 7800) (list 5500 5400 6500 6800) (list 5500 5400 6500 8000) (list 5500 6600 6500 6800) (list 5500 6600 6500 8000) (list 5500 5400 6800 7700) (list 5500 6600 6800 7700) (list 5500 5600 6500 7800) (list 5500 5600 6600 7700) (list 5600 5300 6600 7900) (list 5600 6500 6600 7900) (list 5600 5300 6700 7800) (list 5600 6500 6700 7800) (list 5600 5400 6500 7900) (list 5600 6600 6500 7900) (list 5600 5400 6700 7700) (list 5600 6600 6700 7700) (list 5600 5500 6500 7800) (list 5600 6700 6500 7800) (list 5600 5500 6600 7700) (list 5600 6700 6600 7700) (list 5300 5500 5700 7100) (list 5300 5500 5700 8300) (list 5300 5500 6900 7100) (list 5300 5500 6900 8300) (list 5300 6700 5700 7100) (list 5300 6700 5700 8300) (list 5300 6700 6900 7100) (list 5300 6700 6900 8300) (list 5300 5500 5900 6900) (list 5300 5500 5900 8100) (list 5300 5500 7100 6900) (list 5300 5500 7100 8100) (list 5300 6700 5900 6900) (list 5300 6700 5900 8100) (list 5300 6700 7100 6900) (list 5300 6700 7100 8100) (list 5300 5700 6700 7100) (list 5300 5700 6700 8300) (list 5300 5700 5900 7900) (list 5300 5700 7100 7900) (list 5300 5900 6700 6900) (list 5300 5900 6700 8100) (list 5300 5900 5700 7900) (list 5300 5900 6900 7900) (list 5500 5300 5700 7100) (list 5500 5300 5700 8300) (list 5500 5300 6900 7100) (list 5500 5300 6900 8300) (list 5500 6500 5700 7100) (list 5500 6500 5700 8300) (list 5500 6500 6900 7100) (list 5500 6500 6900 8300) (list 5500 5300 5900 6900) (list 5500 5300 5900 8100) (list 5500 5300 7100 6900) (list 5500 5300 7100 8100) (list 5500 6500 5900 6900) (list 5500 6500 5900 8100) (list 5500 6500 7100 6900) (list 5500 6500 7100 8100) (list 5500 5700 6500 7100) (list 5500 5700 6500 8300) (list 5500 5700 5900 7700) (list 5500 5700 7100 7700) (list 5500 5900 6500 6900) (list 5500 5900 6500 8100) (list 5500 5900 5700 7700) (list 5500 5900 6900 7700) (list 5700 5300 6700 7100) (list 5700 5300 6700 8300) (list 5700 6500 6700 7100) (list 5700 6500 6700 8300) (list 5700 5300 5900 7900) (list 5700 5300 7100 7900) (list 5700 6500 5900 7900) (list 5700 6500 7100 7900) (list 5700 5500 6500 7100) (list 5700 5500 6500 8300) (list 5700 6700 6500 7100) (list 5700 6700 6500 8300) (list 5700 5500 5900 7700) (list 5700 5500 7100 7700) (list 5700 6700 5900 7700) (list 5700 6700 7100 7700) (list 5700 5900 6500 7900) (list 5700 5900 6700 7700) (list 5400 5500 6800 6900) (list 5400 5500 6800 8100) (list 5400 6700 6800 6900) (list 5400 6700 6800 8100) (list 5400 5500 5700 6800) (list 5400 5500 5700 8000) (list 5400 5500 6900 6800) (list 5400 5500 6900 8000) (list 5400 6700 5700 6800) (list 5400 6700 5700 8000) (list 5400 6700 6900 6800) (list 5400 6700 6900 8000) (list 5400 5600 6700 6900) (list 5400 5600 6700 8100) (list 5400 5600 5700 7900) (list 5400 5600 6900 7900) (list 5400 5700 6700 6800) (list 5400 5700 6700 8000) (list 5400 5700 6800 7900) (list 5500 5400 6800 6900) (list 5500 5400 6800 8100) (list 5500 6600 6800 6900) (list 5500 6600 6800 8100) (list 5500 5400 5700 6800) (list 5500 5400 5700 8000) (list 5500 5400 6900 6800) (list 5500 5400 6900 8000) (list 5500 6600 5700 6800) (list 5500 6600 5700 8000) (list 5500 6600 6900 6800) (list 5500 6600 6900 8000) (list 5500 5600 6600 6900) (list 5500 5600 6600 8100) (list 5500 5600 5700 7800) (list 5500 5600 6900 7800) (list 5500 5700 6600 6800) (list 5500 5700 6600 8000) (list 5500 5700 6800 7800) (list 5600 5400 6700 6900) (list 5600 5400 6700 8100) (list 5600 6600 6700 6900) (list 5600 6600 6700 8100) (list 5600 5400 5700 7900) (list 5600 5400 6900 7900) (list 5600 6600 5700 7900) (list 5600 6600 6900 7900) (list 5600 5500 6600 6900) (list 5600 5500 6600 8100) (list 5600 6700 6600 6900) (list 5600 6700 6600 8100) (list 5600 5500 5700 7800) (list 5600 5500 6900 7800) (list 5600 6700 5700 7800) (list 5600 6700 6900 7800) (list 5600 5700 6600 7900) (list 5600 5700 6700 7800) (list 5700 5400 6700 6800) (list 5700 5400 6700 8000) (list 5700 6600 6700 6800) (list 5700 6600 6700 8000) (list 5700 5400 6800 7900) (list 5700 6600 6800 7900) (list 5700 5500 6600 6800) (list 5700 5500 6600 8000) (list 5700 6700 6600 6800) (list 5700 6700 6600 8000) (list 5700 5500 6800 7800) (list 5700 6700 6800 7800) (list 5700 5600 6600 7900) (list 5700 5600 6700 7800) (list 5400 5600 5800 7200) (list 5400 5600 5800 8400) (list 5400 5600 7000 7200) (list 5400 5600 7000 8400) (list 5400 5600 6000 7000) (list 5400 5600 6000 8200) (list 5400 5600 7200 7000) (list 5400 5600 7200 8200) (list 5400 5800 6800 7200) (list 5400 5800 6800 8400) (list 5400 5800 6000 6800) (list 5400 5800 6000 8000) (list 5400 5800 7200 6800) (list 5400 5800 7200 8000) (list 5400 6000 6800 7000) (list 5400 6000 6800 8200) (list 5400 6000 5800 6800) (list 5400 6000 5800 8000) (list 5400 6000 7000 6800) (list 5400 6000 7000 8000) (list 5600 5400 5800 7200) (list 5600 5400 5800 8400) (list 5600 5400 7000 7200) (list 5600 5400 7000 8400) (list 5600 6600 5800 7200) (list 5600 6600 5800 8400) (list 5600 6600 7000 7200) (list 5600 6600 7000 8400) (list 5600 5400 6000 7000) (list 5600 5400 6000 8200) (list 5600 5400 7200 7000) (list 5600 5400 7200 8200) (list 5600 6600 6000 7000) (list 5600 6600 6000 8200) (list 5600 6600 7200 7000) (list 5600 6600 7200 8200) (list 5600 5800 6600 7200) (list 5600 5800 6600 8400) (list 5600 5800 6000 7800) (list 5600 5800 7200 7800) (list 5600 6000 6600 7000) (list 5600 6000 6600 8200) (list 5600 6000 5800 7800) (list 5600 6000 7000 7800) (list 5800 5400 6800 7200) (list 5800 5400 6800 8400) (list 5800 6600 6800 7200) (list 5800 6600 6800 8400) (list 5800 5400 6000 6800) (list 5800 5400 6000 8000) (list 5800 5400 7200 6800) (list 5800 5400 7200 8000) (list 5800 6600 6000 6800) (list 5800 6600 6000 8000) (list 5800 6600 7200 6800) (list 5800 6600 7200 8000) (list 5800 5600 6600 7200) (list 5800 5600 6600 8400) (list 5800 5600 6000 7800) (list 5800 5600 7200 7800) (list 5800 6000 6600 6800) (list 5800 6000 6600 8000) (list 5800 6000 6800 7800) (list 5500 5600 5700 7000) (list 5500 5600 5700 8200) (list 5500 5600 6900 7000) (list 5500 5600 6900 8200) (list 5500 5600 5800 6900) (list 5500 5600 5800 8100) (list 5500 5600 7000 6900) (list 5500 5600 7000 8100) (list 5500 5700 6800 7000) (list 5500 5700 6800 8200) (list 5500 5700 5800 6800) (list 5500 5700 5800 8000) (list 5500 5700 7000 6800) (list 5500 5700 7000 8000) (list 5500 5800 6800 6900) (list 5500 5800 6800 8100) (list 5500 5800 5700 6800) (list 5500 5800 5700 8000) (list 5500 5800 6900 6800) (list 5500 5800 6900 8000) (list 5600 5500 5700 7000) (list 5600 5500 5700 8200) (list 5600 5500 6900 7000) (list 5600 5500 6900 8200) (list 5600 6700 5700 7000) (list 5600 6700 5700 8200) (list 5600 6700 6900 7000) (list 5600 6700 6900 8200) (list 5600 5500 5800 6900) (list 5600 5500 5800 8100) (list 5600 5500 7000 6900) (list 5600 5500 7000 8100) (list 5600 6700 5800 6900) (list 5600 6700 5800 8100) (list 5600 6700 7000 6900) (list 5600 6700 7000 8100) (list 5600 5700 6700 7000) (list 5600 5700 6700 8200) (list 5600 5700 5800 7900) (list 5600 5700 7000 7900) (list 5600 5800 6700 6900) (list 5600 5800 6700 8100) (list 5600 5800 5700 7900) (list 5600 5800 6900 7900) (list 5700 5500 6800 7000) (list 5700 5500 6800 8200) (list 5700 6700 6800 7000) (list 5700 6700 6800 8200) (list 5700 5500 5800 6800) (list 5700 5500 5800 8000) (list 5700 5500 7000 6800) (list 5700 5500 7000 8000) (list 5700 6700 5800 6800) (list 5700 6700 5800 8000) (list 5700 6700 7000 6800) (list 5700 6700 7000 8000) (list 5700 5600 6700 7000) (list 5700 5600 6700 8200) (list 5700 5600 5800 7900) (list 5700 5600 7000 7900) (list 5700 5800 6700 6800) (list 5700 5800 6700 8000) (list 5700 5800 6800 7900) (list 5800 5500 6800 6900) (list 5800 5500 6800 8100) (list 5800 6700 6800 6900) (list 5800 6700 6800 8100) (list 5800 5500 5700 6800) (list 5800 5500 5700 8000) (list 5800 5500 6900 6800) (list 5800 5500 6900 8000) (list 5800 6700 5700 6800) (list 5800 6700 5700 8000) (list 5800 6700 6900 6800) (list 5800 6700 6900 8000) (list 5800 5600 6700 6900) (list 5800 5600 6700 8100) (list 5800 5600 5700 7900) (list 5800 5600 6900 7900) (list 5800 5700 6700 6800) (list 5800 5700 6700 8000) (list 5800 5700 6800 7900) (list 5500 5700 5900 7300) (list 5500 5700 5900 8500) (list 5500 5700 7100 7300) (list 5500 5700 7100 8500) (list 5500 5700 6100 7100) (list 5500 5700 6100 8300) (list 5500 5900 5700 7300) (list 5500 5900 5700 8500) (list 5500 5900 6900 7300) (list 5500 5900 6900 8500) (list 5500 5900 6100 6900) (list 5500 5900 6100 8100) (list 5500 6100 5700 7100) (list 5500 6100 5700 8300) (list 5500 6100 6900 7100) (list 5500 6100 6900 8300) (list 5500 6100 5900 6900) (list 5500 6100 5900 8100) (list 5500 6100 7100 6900) (list 5500 6100 7100 8100) (list 5700 5500 5900 7300) (list 5700 5500 5900 8500) (list 5700 5500 7100 7300) (list 5700 5500 7100 8500) (list 5700 6700 5900 7300) (list 5700 6700 5900 8500) (list 5700 6700 7100 7300) (list 5700 6700 7100 8500) (list 5700 5500 6100 7100) (list 5700 5500 6100 8300) (list 5700 6700 6100 7100) (list 5700 6700 6100 8300) (list 5700 5900 6700 7300) (list 5700 5900 6700 8500) (list 5700 5900 6100 7900) (list 5700 6100 6700 7100) (list 5700 6100 6700 8300) (list 5700 6100 5900 7900) (list 5700 6100 7100 7900) (list 5600 5700 5800 7100) (list 5600 5700 5800 8300) (list 5600 5700 7000 7100) (list 5600 5700 7000 8300) (list 5600 5700 5900 7000) (list 5600 5700 5900 8200) (list 5600 5700 7100 7000) (list 5600 5700 7100 8200) (list 5600 5800 5700 7100) (list 5600 5800 5700 8300) (list 5600 5800 6900 7100) (list 5600 5800 6900 8300) (list 5600 5800 5900 6900) (list 5600 5800 5900 8100) (list 5600 5800 7100 6900) (list 5600 5800 7100 8100) (list 5600 5900 5700 7000) (list 5600 5900 5700 8200) (list 5600 5900 6900 7000) (list 5600 5900 6900 8200) (list 5600 5900 5800 6900) (list 5600 5900 5800 8100) (list 5600 5900 7000 6900) (list 5600 5900 7000 8100) (list 5700 5600 5800 7100) (list 5700 5600 5800 8300) (list 5700 5600 7000 7100) (list 5700 5600 7000 8300) (list 5700 5600 5900 7000) (list 5700 5600 5900 8200) (list 5700 5600 7100 7000) (list 5700 5600 7100 8200) (list 5700 5800 6800 7100) (list 5700 5800 6800 8300) (list 5700 5800 5900 6800) (list 5700 5800 5900 8000) (list 5700 5800 7100 6800) (list 5700 5800 7100 8000) (list 5700 5900 6800 7000) (list 5700 5900 6800 8200) (list 5700 5900 5800 6800) (list 5700 5900 5800 8000) (list 5700 5900 7000 6800) (list 5700 5900 7000 8000) (list 5800 5600 5700 7100) (list 5800 5600 5700 8300) (list 5800 5600 6900 7100) (list 5800 5600 6900 8300) (list 5800 5600 5900 6900) (list 5800 5600 5900 8100) (list 5800 5600 7100 6900) (list 5800 5600 7100 8100) (list 5800 5700 6800 7100) (list 5800 5700 6800 8300) (list 5800 5700 5900 6800) (list 5800 5700 5900 8000) (list 5800 5700 7100 6800) (list 5800 5700 7100 8000) (list 5800 5900 6800 6900) (list 5800 5900 6800 8100) (list 5800 5900 5700 6800) (list 5800 5900 5700 8000) (list 5800 5900 6900 6800) (list 5800 5900 6900 8000) (list 5600 5800 6000 7400) (list 5600 5800 7200 7400) (list 5600 5800 6200 7200) (list 5600 5800 6200 8400) (list 5600 6000 5800 7400) (list 5600 6000 7000 7400) (list 5600 6000 6200 7000) (list 5600 6000 6200 8200) (list 5600 6200 5800 7200) (list 5600 6200 5800 8400) (list 5600 6200 7000 7200) (list 5600 6200 7000 8400) (list 5600 6200 6000 7000) (list 5600 6200 6000 8200) (list 5600 6200 7200 7000) (list 5600 6200 7200 8200) (list 5800 5600 6000 7400) (list 5800 5600 7200 7400) (list 5800 5600 6200 7200) (list 5800 5600 6200 8400) (list 5800 6000 6800 7400) (list 5800 6000 6200 6800) (list 5800 6000 6200 8000) (list 5800 6200 6800 7200) (list 5800 6200 6800 8400) (list 5800 6200 6000 6800) (list 5800 6200 6000 8000) (list 5800 6200 7200 6800) (list 5800 6200 7200 8000) (list 5700 5800 5900 7200) (list 5700 5800 5900 8400) (list 5700 5800 7100 7200) (list 5700 5800 7100 8400) (list 5700 5800 6000 7100) (list 5700 5800 6000 8300) (list 5700 5800 7200 7100) (list 5700 5800 7200 8300) (list 5700 5900 5800 7200) (list 5700 5900 5800 8400) (list 5700 5900 7000 7200) (list 5700 5900 7000 8400) (list 5700 5900 6000 7000) (list 5700 5900 6000 8200) (list 5700 5900 7200 7000) (list 5700 5900 7200 8200) (list 5700 6000 5800 7100) (list 5700 6000 5800 8300) (list 5700 6000 7000 7100) (list 5700 6000 7000 8300) (list 5700 6000 5900 7000) (list 5700 6000 5900 8200) (list 5700 6000 7100 7000) (list 5700 6000 7100 8200) (list 5800 5700 5900 7200) (list 5800 5700 5900 8400) (list 5800 5700 7100 7200) (list 5800 5700 7100 8400) (list 5800 5700 6000 7100) (list 5800 5700 6000 8300) (list 5800 5700 7200 7100) (list 5800 5700 7200 8300) (list 5800 5900 5700 7200) (list 5800 5900 5700 8400) (list 5800 5900 6900 7200) (list 5800 5900 6900 8400) (list 5800 5900 6000 6900) (list 5800 5900 6000 8100) (list 5800 5900 7200 6900) (list 5800 5900 7200 8100) (list 5800 6000 5700 7100) (list 5800 6000 5700 8300) (list 5800 6000 6900 7100) (list 5800 6000 6900 8300) (list 5800 6000 5900 6900) (list 5800 6000 5900 8100) (list 5800 6000 7100 6900) (list 5800 6000 7100 8100) (list 5700 5900 6100 7500) (list 5700 5900 6300 7300) (list 5700 5900 6300 8500) (list 5700 6100 5900 7500) (list 5700 6100 7100 7500) (list 5700 6100 6300 7100) (list 5700 6100 6300 8300) (list 5700 6300 5900 7300) (list 5700 6300 5900 8500) (list 5700 6300 7100 7300) (list 5700 6300 7100 8500) (list 5700 6300 6100 7100) (list 5700 6300 6100 8300) (list 5800 5900 6000 7300) (list 5800 5900 6000 8500) (list 5800 5900 7200 7300) (list 5800 5900 7200 8500) (list 5800 5900 6100 7200) (list 5800 5900 6100 8400) (list 5800 6000 5900 7300) (list 5800 6000 5900 8500) (list 5800 6000 7100 7300) (list 5800 6000 7100 8500) (list 5800 6000 6100 7100) (list 5800 6000 6100 8300) (list 5800 6100 5900 7200) (list 5800 6100 5900 8400) (list 5800 6100 7100 7200) (list 5800 6100 7100 8400) (list 5800 6100 6000 7100) (list 5800 6100 6000 8300) (list 5800 6100 7200 7100) (list 5800 6100 7200 8300) (list 5800 6000 6200 7600) (list 5800 6000 6400 7400) (list 5800 6200 6000 7600) (list 5800 6200 7200 7600) (list 5800 6200 6400 7200) (list 5800 6200 6400 8400) (list 5800 6400 6000 7400) (list 5800 6400 7200 7400) (list 5800 6400 6200 7200) (list 5800 6400 6200 8400))) nil "harmon-database"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "CAR" (quote car) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 93 175) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 97 22) (om-make-point 41 30) 100 "100" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil) (om-load-inputkeyword (quote input-keyword) "" "voice-tie1" (quote :voice-tie1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "voice-interval2" (quote :voice-interval2) nil nil))) (om-make-point 66 402) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "voicetie1" (om-load-patch-abs1 "voicetie1" (quote ((let ((box (om-load-boxout "output 2" 0 (om-make-point 124 430) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 125 324) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 95 250) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 167 125) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 130 171) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 178 93) (om-make-point 114 30) (list 1 4 4 3 nil 2 nil) "(1 4 4 3 nil 2 nil)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (3 0 2 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (6 0 4 0 nil 0) (1 0 5 0 nil 0) (4 0 5 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 147 688/5) nil (list (list 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil 1 4 4 3 nil 2 nil)) nil "voicetie1"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote abstraction) "voicetie2" (om-load-patch-abs1 "voicetie2" (quote ((let ((box (om-load-boxout "output 2" 0 (om-make-point 124 430) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxin "input" 0 (om-make-point 50 50) "" nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "FLAT" (quote flat) (quote ((om-load-inputfun (quote input-funbox) "a list" "LST" nil))) (om-make-point 125 324) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "REPEAT-N" (quote repeat-n) (quote ((om-load-inputfun (quote input-funbox) "something" "SELF" nil) (om-load-inputfun (quote input-funbox) "times" "N" 0))) (om-make-point 95 250) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote lispfun) "LENGTH" (quote length) (quote ((om-load-inputfun (quote input-funbox) "SEQUENCE" "SEQUENCE" nil))) (om-make-point 167 125) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "OM//" (quote om//) (quote ((om-load-inputfun (quote input-funbox) "number or list" "N" 1) (om-load-inputfun (quote input-funbox) "number or list" "DIVISOR" 1))) (om-make-point 130 171) nil nil nil nil 2))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 5" (quote t) (quote nil) (om-make-point 178 93) (om-make-point 126 30) (list nil 2 nil nil 1 3 nil) "(nil 2 nil nil 1 3 nil)" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((2 0 0 0 nil 0) (3 0 2 0 nil 0) (6 0 3 0 nil 0) (5 0 3 1 nil 0) (6 0 4 0 nil 0) (1 0 5 0 nil 0) (4 0 5 1 nil 0))) 7.02 nil "" (om-make-point 200 200) (om-make-point 500 400)) (quote ((om-load-inputfun (quote input-funbox) "" "input" nil))) (om-make-point 204 688/5) nil (list (list nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil nil 2 nil nil 1 3 nil)) nil "voicetie2"))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 6" (quote t) (quote nil) (om-make-point 1167 248) (om-make-point 24 30) (quote t) "t" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 14" (quote t) (quote nil) (om-make-point 1096 248) (om-make-point 27 30) 4 "4" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 13" (quote t) (quote nil) (om-make-point 1027 248) (om-make-point 27 30) 3 "3" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 12" (quote t) (quote nil) (om-make-point 958 248) (om-make-point 27 30) 2 "2" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote bastype) "aux 11" (quote t) (quote nil) (om-make-point 889 248) (om-make-point 27 30) 1 "1" nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputkeyword (quote input-keyword) "tempo" "tempo" (quote :tempo) nil nil) (om-load-inputkeyword (quote input-keyword) "number of beats (could be a list or an integer number)" "measure_numerator" (quote :measure_numerator) nil nil) (om-load-inputkeyword (quote input-keyword) "beat (could be a list or an integer number)" "measure_denominator" (quote :measure_denominator) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i1" (quote :vel-i1) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i2" (quote :vel-i2) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i3" (quote :vel-i3) nil nil) (om-load-inputkeyword (quote input-keyword) "" "vel-i4" (quote :vel-i4) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr1 (could be a list or an integer number)" "chan-i1" (quote :chan-i1) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr2 (could be a list or an integer number)" "chan-i2" (quote :chan-i2) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr3 (could be a list or an integer number)" "chan-i3" (quote :chan-i3) nil nil) (om-load-inputkeyword (quote input-keyword) "midi-channel for instr4 (could be a list or an integer number)" "chan-i4" (quote :chan-i4) nil nil) (om-load-inputkeyword (quote input-keyword) "" "tie-repetitions" (quote :tie-repetitions) nil nil))) (om-make-point 279 279) (om-make-point 963 67) (list (list (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4.0)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2.0)) ((1 32) (1.0)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3.0)) ((4 8) (4)) ((2 8) (2.0)) ((3 16) (3.0)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1.0)) ((2 4) (2.0)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4.0 1.0)) ((3 32) (3.0)) ((4 4) (4)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3.0)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4.0 1.0)) ((4 16) (4.0)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3.0)) ((2 8) (2.0)) ((1 4) (1)) ((5 4) (4.0 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2.0)) ((5 8) (4.0 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4 1.0)) ((5 8) (4.0 1.0)) ((4 4) (4.0)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4.0)) ((2 2) (2.0)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4.0 1.0)) ((2 8) (2.0)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4 1.0)) ((5 4) (4.0 1.0)) ((4 16) (4.0)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4.0)) ((1 16) (1.0)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (900)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (75)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (112)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (38)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4.0 1.0)) ((4 8) (4.0)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4.0 1.0)) ((4 4) (4)) ((4 4) (4.0)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4.0)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4 1.0)) ((3 32) (3)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3)) ((1 4) (1.0)) ((2 2) (2.0)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3.0)) ((4 4) (4.0)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2)) ((5 8) (4.0 1.0)) ((5 16) (4.0 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2.0)) ((5 2) (4 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2.0)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2.0)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4)) ((1 16) (1)) ((2 2) (2.0)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (225)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (112)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (112)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (38)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (-1)) ((4 2) (4)) ((5 32) (-4 -1.0)) ((4 8) (4)) ((5 16) (-4 -1.0)) ((2 8) (-2)) ((2 8) (2)) ((5 8) (-4 -1.0)) ((2 4) (2)) ((1 32) (-1)) ((5 16) (4 1.0)) ((2 2) (-2)) ((4 4) (-4)) ((3 2) (3)) ((4 8) (-4)) ((2 8) (2)) ((3 16) (-3)) ((5 32) (4 1.0)) ((4 4) (-4)) ((4 4) (-4)) ((2 16) (2)) ((5 8) (-4 -1.0)) ((1 4) (1)) ((2 4) (-2)) ((4 32) (4)) ((4 2) (-4)) ((5 8) (-4 -1.0)) ((2 16) (2)) ((1 8) (-1)) ((5 2) (4 1.0)) ((3 32) (-3)) ((4 4) (4)) ((4 8) (-4)) ((5 4) (-4 -1.0)) ((2 8) (2)) ((2 4) (-2)) ((5 16) (4 1.0)) ((3 8) (-3)) ((1 4) (1)) ((2 2) (-2)) ((5 32) (-4 -1.0)) ((2 8) (2)) ((1 2) (-1)) ((5 32) (4 1.0)) ((4 16) (-4)) ((3 8) (3)) ((4 4) (-4)) ((5 4) (-4 -1.0)) ((4 2) (4)) ((2 32) (-2)) ((3 8) (3)) ((2 8) (-2)) ((1 4) (1)) ((5 4) (-4 -1.0)) ((4 16) (-4)) ((3 4) (3)) ((4 2) (-4)) ((2 4) (2)) ((5 8) (-4 -1.0)) ((5 16) (4 1.0)) ((1 8) (-1)) ((4 32) (-4)) ((2 8) (2)) ((5 2) (-4 -1.0)) ((5 8) (4 1.0)) ((4 4) (-4)) ((2 32) (2)) ((2 16) (-2)) ((1 4) (-1)) ((4 4) (4)) ((3 32) (-3)) ((4 16) (4)) ((2 2) (-2)) ((2 4) (2)) ((4 8) (-4)) ((3 8) (-3)) ((1 32) (1)) ((5 16) (-4 -1.0)) ((5 4) (4 1.0)) ((2 8) (-2)) ((2 4) (2)) ((4 2) (-4)) ((3 8) (-3)) ((1 4) (1)) ((5 2) (-4 -1.0)) ((5 4) (4 1.0)) ((4 16) (-4)) ((5 32) (4 1.0)) ((4 8) (-4)) ((2 8) (-2)) ((5 32) (4 1.0)) ((3 4) (-3)) ((4 4) (4)) ((1 16) (-1)) ((2 2) (2)) ((2 8) (-2)) ((2 8) (-2)) ((2 8) (2)) ((2 8) (-2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (900)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (2400)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4.0 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4.0 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1.0)) ((5 2) (4 1.0)) ((3 32) (3.0)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((5 16) (4 1.0)) ((3 8) (3)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1.0)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2.0)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4.0)) ((2 4) (2)) ((5 8) (4 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4.0 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3.0)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1.0)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3.0)) ((4 4) (4.0)) ((1 16) (1)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (3600)) :ldur (quote (900)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (38)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (1800)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (225)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (450)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (75)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4.0 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4.0 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1.0)) ((5 2) (4 1.0)) ((3 32) (3.0)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((5 16) (4 1.0)) ((3 8) (3)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1.0)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2.0)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4.0)) ((2 4) (2)) ((5 8) (4 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4.0 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3.0)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1.0)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3.0)) ((4 4) (4.0)) ((1 16) (1)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (3600)) :ldur (quote (900)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (3900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (38)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (1800)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (225)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (450)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4300)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5100)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5600)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4500)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4600)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5300)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4700)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (75)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (1))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (-1)) ((4 2) (4)) ((5 32) (-4 -1.0)) ((4 8) (4)) ((5 16) (-4 -1.0)) ((2 8) (-2)) ((2 8) (2)) ((5 8) (-4 -1.0)) ((2 4) (2)) ((1 32) (-1)) ((5 16) (4 1.0)) ((2 2) (-2)) ((4 4) (-4)) ((3 2) (3)) ((4 8) (-4)) ((2 8) (2)) ((3 16) (-3)) ((5 32) (4 1.0)) ((4 4) (-4)) ((4 4) (-4)) ((2 16) (2)) ((5 8) (-4 -1.0)) ((1 4) (1)) ((2 4) (-2)) ((4 32) (4)) ((4 2) (-4)) ((5 8) (-4 -1.0)) ((2 16) (2)) ((1 8) (-1)) ((5 2) (4 1.0)) ((3 32) (-3)) ((4 4) (4)) ((4 8) (-4)) ((5 4) (-4 -1.0)) ((2 8) (2)) ((2 4) (-2)) ((5 16) (4 1.0)) ((3 8) (-3)) ((1 4) (1)) ((2 2) (-2)) ((5 32) (-4 -1.0)) ((2 8) (2)) ((1 2) (-1)) ((5 32) (4 1.0)) ((4 16) (-4)) ((3 8) (3)) ((4 4) (-4)) ((5 4) (-4 -1.0)) ((4 2) (4)) ((2 32) (-2)) ((3 8) (3)) ((2 8) (-2)) ((1 4) (1)) ((5 4) (-4 -1.0)) ((4 16) (-4)) ((3 4) (3)) ((4 2) (-4)) ((2 4) (2)) ((5 8) (-4 -1.0)) ((5 16) (4 1.0)) ((1 8) (-1)) ((4 32) (-4)) ((2 8) (2)) ((5 2) (-4 -1.0)) ((5 8) (4 1.0)) ((4 4) (-4)) ((2 32) (2)) ((2 16) (-2)) ((1 4) (-1)) ((4 4) (4)) ((3 32) (-3)) ((4 16) (4)) ((2 2) (-2)) ((2 4) (2)) ((4 8) (-4)) ((3 8) (-3)) ((1 32) (1)) ((5 16) (-4 -1.0)) ((5 4) (4 1.0)) ((2 8) (-2)) ((2 4) (2)) ((4 2) (-4)) ((3 8) (-3)) ((1 4) (1)) ((5 2) (-4 -1.0)) ((5 4) (4 1.0)) ((4 16) (-4)) ((5 32) (4 1.0)) ((4 8) (-4)) ((2 8) (-2)) ((5 32) (4 1.0)) ((3 4) (-3)) ((4 4) (4)) ((1 16) (-1)) ((2 2) (2)) ((2 8) (-2)) ((2 8) (-2)) ((2 8) (2)) ((2 8) (-2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (900)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (2400)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5500)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (4900)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (2))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4)) ((5 32) (4.0 1.0)) ((4 8) (4.0)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3)) ((4 8) (4.0)) ((2 8) (2)) ((3 16) (3)) ((5 32) (4.0 1.0)) ((4 4) (4)) ((4 4) (4.0)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1)) ((2 4) (2)) ((4 32) (4.0)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4 1.0)) ((3 32) (3)) ((4 4) (4.0)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3)) ((1 4) (1.0)) ((2 2) (2.0)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4 1.0)) ((4 16) (4)) ((3 8) (3.0)) ((4 4) (4.0)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3)) ((2 8) (2)) ((1 4) (1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2)) ((5 8) (4.0 1.0)) ((5 16) (4.0 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2.0)) ((5 2) (4 1.0)) ((5 8) (4 1.0)) ((4 4) (4)) ((2 32) (2.0)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4)) ((2 2) (2)) ((2 4) (2.0)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4 1.0)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2.0)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4.0 1.0)) ((5 4) (4 1.0)) ((4 16) (4)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4)) ((1 16) (1)) ((2 2) (2.0)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (38)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1800)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (225)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (112)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (450)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (450)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5900)) :ldur (quote (900)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6700)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5700)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (112)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6600)) :ldur (quote (38)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (450)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6100)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6000)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (600)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (5800)) :ldur (quote (150)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (1200)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6200)) :ldur (quote (75)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6300)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6400)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (3))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj) (let ((newobj (when (find-class (quote voice) nil) (make-instance (quote voice) :tree (quote (241/4 (((3 4) (3)) ((1 4) (1.0)) ((4 2) (4.0)) ((5 32) (4.0 1.0)) ((4 8) (4)) ((5 16) (4 1.0)) ((2 8) (2)) ((2 8) (2)) ((5 8) (4 1.0)) ((2 4) (2.0)) ((1 32) (1.0)) ((5 16) (4 1.0)) ((2 2) (2)) ((4 4) (4)) ((3 2) (3.0)) ((4 8) (4)) ((2 8) (2.0)) ((3 16) (3.0)) ((5 32) (4 1.0)) ((4 4) (4)) ((4 4) (4)) ((2 16) (2)) ((5 8) (4 1.0)) ((1 4) (1.0)) ((2 4) (2.0)) ((4 32) (4)) ((4 2) (4)) ((5 8) (4 1.0)) ((2 16) (2)) ((1 8) (1)) ((5 2) (4.0 1.0)) ((3 32) (3.0)) ((4 4) (4)) ((4 8) (4)) ((5 4) (4 1.0)) ((2 8) (2)) ((2 4) (2)) ((5 16) (4.0 1.0)) ((3 8) (3.0)) ((1 4) (1)) ((2 2) (2)) ((5 32) (4 1.0)) ((2 8) (2)) ((1 2) (1)) ((5 32) (4.0 1.0)) ((4 16) (4.0)) ((3 8) (3)) ((4 4) (4)) ((5 4) (4 1.0)) ((4 2) (4)) ((2 32) (2)) ((3 8) (3.0)) ((2 8) (2.0)) ((1 4) (1)) ((5 4) (4.0 1.0)) ((4 16) (4)) ((3 4) (3)) ((4 2) (4)) ((2 4) (2.0)) ((5 8) (4.0 1.0)) ((5 16) (4 1.0)) ((1 8) (1)) ((4 32) (4)) ((2 8) (2)) ((5 2) (4 1.0)) ((5 8) (4.0 1.0)) ((4 4) (4.0)) ((2 32) (2)) ((2 16) (2)) ((1 4) (1)) ((4 4) (4)) ((3 32) (3)) ((4 16) (4.0)) ((2 2) (2.0)) ((2 4) (2)) ((4 8) (4)) ((3 8) (3)) ((1 32) (1)) ((5 16) (4.0 1.0)) ((5 4) (4.0 1.0)) ((2 8) (2.0)) ((2 4) (2)) ((4 2) (4)) ((3 8) (3)) ((1 4) (1)) ((5 2) (4 1.0)) ((5 4) (4.0 1.0)) ((4 16) (4.0)) ((5 32) (4 1.0)) ((4 8) (4)) ((2 8) (2)) ((5 32) (4 1.0)) ((3 4) (3)) ((4 4) (4.0)) ((1 16) (1.0)) ((2 2) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2)) ((2 8) (2))))) :chords (load-obj-list-from-save (quote ((let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (900)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (150)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (150)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8200)) :ldur (quote (600)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (1200)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7400)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (600)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8400)) :ldur (quote (1200)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (75)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7300)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (900)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (2400)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7800)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (75)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (150)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (1200)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (112)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (600)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (600)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8300)) :ldur (quote (450)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (38)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7900)) :ldur (quote (600)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (2400)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6900)) :ldur (quote (450)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7700)) :ldur (quote (300)) :lvel (quote (30)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7000)) :ldur (quote (2400)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8000)) :ldur (quote (150)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (600)) :lvel (quote (75)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7100)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7600)) :ldur (quote (150)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7500)) :ldur (quote (900)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (1200)) :lvel (quote (10)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (8500)) :ldur (quote (300)) :lvel (quote (20)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (120)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (7200)) :ldur (quote (300)) :lvel (quote (100)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord) (let ((thechord (make-instance (quote chord) :lmidic (quote (6800)) :ldur (quote (300)) :lvel (quote (40)) :loffset (quote (0)) :lchan (quote (4))))) (load-port-info thechord (quote (0))) (init-mus-color thechord (quote nil)) (set-extra-pairs thechord (quote nil)) (set-tonalite thechord nil) thechord)))) :tempo (quote ((1/4 200) nil)) :legato 100 :ties (quote (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) (load-port-info newobj (quote nil)) (init-mus-color newobj (quote nil)) (set-extra-pairs newobj (quote nil)) (set-patch-pairs newobj (quote nil)) (set-name newobj nil) (set-tonalite newobj nil) newobj)) "x" nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote ((16 0 0 1 nil 0) (7 0 1 0 nil 0) (7 0 2 0 nil 0) (7 0 3 0 nil 0) (5 0 6 0 nil 0) (5 0 8 0 nil 0) (6 0 8 1 nil 0) (7 0 8 2 nil 0) (9 0 8 3 nil 0) (10 0 8 4 nil 0) (7 0 9 0 nil 0) (7 0 10 0 nil 0) (8 0 16 0 nil 0) (4 0 16 1 nil 0) (3 0 16 2 nil 0) (2 0 16 3 nil 0) (1 0 16 4 nil 0) (1 0 16 5 nil 0) (1 0 16 6 nil 0) (1 0 16 7 nil 0) (15 0 16 8 nil 0) (14 0 16 9 nil 0) (13 0 16 10 nil 0) (12 0 16 11 nil 0) (11 0 16 12 nil 0))) nil 7.02))
--
Gitblit v1.9.1