;;; Fichier Midiboucle.drs / 8 mars 2003
;;; Boucle "deep house" BPM = 120, duree du beat = 500 millisecondes
;;; Pattern rythmique "poum-tchi": 36 = poum, 42 = tchi
;;; Lancer les boucles avec la date courante: (boucle1 (midi-get-time) 10)

(define (jouer-poum d) (jouer-midi (list 36 d 250 80 9)))
(define (jouer-tchi d) (jouer-midi (list 42 d 250 80 9)))

(define (boucle d)
  (jouer-poum d)
  (jouer-tchi (+ d 250))
  (pause 450)
  (boucle (+ d 500)));;;................................ON BOUCLE

(define (boucle1 d n)
  (display n) (newline)
  (jouer-poum d)
  (jouer-tchi (+ d 250))
  (pause 450)
  (if (= n 0) 'stop (boucle1 (+ d 500) (- n 1))));;;....ON BOUCLE AVEC TEST D'ARRET

(define (jouer-tchac d) (jouer-midi (list 40 d 250 80 9)))

(define (boucle1bis d n)
  (display n) (newline)
  (jouer-poum d)
  (jouer-tchi (+ d 250))
  (jouer-poum (+ d 500))
  (jouer-tchac (+ d 500));;; ajout d'un contretemps
  (jouer-tchi (+ d 750))
  (pause 950)
  (if (= n 0) 'stop (boucle1bis (+ d 1000) (- n 1))))

(define (jouer-house d) (jouer-liste-at d house))
(define (jouer-house1 d) (jouer-liste-at d house1))

(define (boucle2 d n)
  (display n) (newline)
  (if (= (random 3) 0) (jouer-house1 d)
      (jouer-house d))
  (pause 7900)
  (if (= n 0) 'stop (boucle2 (+ d 8000) (- n 1))))

(define (boucle2bis d n)
  (display n) (newline)
  (if (= (random 2) 0) (jouer-liste-at d house1bis)
      (jouer-liste-at d housebis))
  (pause 7900)
  (if (= n 0) 'stop (boucle2bis (+ d 8000) (- n 1))))


;;; ----------- Fonctions Midishare --------------
(load-extension "PowerBook:Applications:Scheme:plt v.103:mzshare.so")
(load "PowerBook:Applications:Scheme:mzscheme:src:libmidishare.scm")

(define *refnum* (midi-open "mz"))
(midi-connect *refnum* 0 #t)

(define (jouer-midi 5uple)    ; 5uple = (pitch date dur vel canal)
  (let ((ev (midi-new-ev 0)))
    (when ev
      (midi-set-chan! ev (car (cddddr 5uple)))   ;canal
      (midi-set-port! ev 0) 
      (midi-set-field! ev 0 (car 5uple))         ;pitch
      (midi-set-field! ev 1 (cadddr 5uple))      ;velocite
      (midi-set-field! ev 2 (caddr 5uple))       ;duree
      (midi-send-at *refnum* ev (cadr 5uple))
      )))

(define (pause x)
  (define (aux datefin) 
    (if (> (midi-get-time) datefin) 'ok (aux datefin)))
  (aux (+ (midi-get-time) x)))

;;; NB: (current-milliseconds) = variante de (midi-get-time)

(define (jouer-liste-at date liste)
  (cond ((null? liste) 'ok)
        (else (let* ((5uple (car liste))
                     (new-5uple (list (car 5uple) 
                                      (+ date (cadr 5uple)) 
                                      (caddr 5uple) 
                                      (cadddr 5uple) 
                                      (car (cddddr 5uple)))))
                (jouer-midi new-5uple)
                (jouer-liste-at date (cdr liste))))))

;;;; Controle des sons:

(define (send-ctrl ca n val)
  (let ((ev (midi-new-ev 4)))
    (when ev
    (midi-set-chan! ev ca)
    (midi-set-port! ev 0)
    (midi-set-field! ev 0 n)
    (midi-set-field! ev 1 val)
(midi-send-im *refnum* ev))))

(define (send-pgm ca n)
  (let ((ev (midi-new-ev 5)))
    (when ev
    (midi-set-chan! ev ca)
    (midi-set-port! ev 0)
    (midi-set-field! ev 0 n) 
(midi-send-im *refnum* ev))))

(define (choix-inst canal banque inst)
  (send-ctrl canal 31 banque) ;;; control change 32 = bank 
  (send-pgm canal inst))

;;; ----------- Exemple "Sweeter Love" --------------
;;; Macintosh: msDrivers connecte Midishare (port0) -> Synthe "Unity"

(choix-inst 0 18 2)  ;;;piano canal0: 18 = banque (19-marc.ud), 2 = inst (3Mark/Dyno)
(choix-inst 1 18 10) ;;;basse canal1: 18 = banque (19-marc.ud), 10 = inst (11PureSine)
(choix-inst 9 18 11) ;;;drums canal9: 18 = banque (19-marc.ud), 11 = inst (12GMDance)

;;; partie de drums:
;;; 84=voix "ha ha"
;;; 72=guiro1
;;; 69=cabasse
;;; 61, 62=bongo
;;; 44=fioriture charleston
;;; 42=contretemps charleston
;;; 39=hand clap
;;; 36+26=bass drum

(define house
  '((37 0 245 127 1) (83 0 5987 10 2) (36 0 241 127 9) (69 0 495 105 9) (68 0 1728 64 0) (64 0 1728 64 0) (63 0 1728 64 0) (59 0 1728 64 0) (42 250 62 99 9) (42 250 62 99 9) (84 250 245 64 9) (42 375 120 99 9) (39 500 112 99 9) (36 500 241 127 9) (69 500 495 105 9) (61 617 120 64 9) (61 617 120 64 9) (44 750 245 127 1) (62 750 237 64 9) (61 750 245 64 9) (42 750 62 99 9) (42 750 62 99 9) (42 875 120 99 9) (42 1000 120 99 9) (36 1000 241 100 9) (69 1000 370 105 9) (42 1125 187 99 9) (72 1250 120 64 9) (72 1250 120 64 9) (42 1250 62 99 9) (42 1250 62 99 9) (49 1250 245 127 1) (42 1375 120 99 9) (42 1375 120 99 9) (69 1375 120 105 9) (36 1492 241 100 9) (69 1492 3 105 9) (39 1492 120 99 9) (42 1742 62 99 9) (42 1742 62 99 9) (47 1742 245 127 1) (66 1742 1728 64 0) (62 1742 1728 64 0) (61 1742 1728 64 0) (57 1742 1728 64 0) (72 1742 120 64 9) (42 1867 120 99 9) (72 1867 120 64 9) (62 2000 370 64 9) (36 2000 241 100 9) (69 2000 495 105 9) (42 2250 62 99 9) (42 2250 62 99 9) (62 2375 370 64 9) (42 2375 120 99 9) (39 2500 120 99 9) (36 2500 241 100 9) (69 2500 495 105 9) (61 2617 120 64 9) (62 2742 3 64 9) (42 2742 62 99 9) (42 2742 62 99 9) (61 2742 245 64 9) (42 2875 120 99 9) (47 3000 245 127 1) (42 3000 120 99 9) (36 3000 241 100 9) (69 3000 370 105 9) (42 3125 187 99 9) (42 3250 62 99 9) (42 3250 62 99 9) (42 3375 120 99 9) (42 3375 120 99 9) (69 3375 120 105 9) (39 3483 103 99 9) (36 3483 241 100 9) (69 3483 12 105 9) (66 3483 495 64 0) (62 3483 495 64 0) (61 3483 495 64 0) (57 3483 495 64 0) (45 3483 245 127 1) (42 3750 62 99 9) (42 3750 62 99 9) (69 3750 245 105 9) (42 3750 245 127 1) (42 3875 120 99 9) (36 4000 241 100 9) (69 4000 495 105 9) (30 4000 245 127 1) (61 4000 1212 64 0) (57 4000 1212 64 0) (56 4000 1212 64 0) (52 4000 1212 64 0) (84 4250 245 64 9) (42 4250 62 99 9) (42 4250 62 99 9) (42 4375 120 99 9) (39 4500 112 99 9) (36 4500 241 100 9) (69 4500 495 105 9) (61 4625 120 64 9) (61 4625 120 64 9) (61 4750 245 64 9) (72 4750 120 64 9) (42 4750 62 99 9) (42 4750 62 99 9) (62 4750 245 64 9) (37 4750 245 127 1) (42 4875 120 99 9) (42 5000 120 99 9) (36 5000 241 100 9) (69 5000 370 105 9) (42 5125 187 99 9) (72 5250 120 64 9) (72 5250 120 64 9) (42 5250 62 99 9) (42 5250 62 99 9) (42 5250 245 127 1) (61 5250 495 64 0) (57 5250 495 64 0) (56 5250 495 64 0) (52 5250 495 64 0) (72 5375 120 64 9) (42 5375 120 99 9) (42 5375 120 99 9) (69 5375 120 105 9) (39 5500 120 99 9) (36 5500 241 100 9) (69 5500 495 105 9) (42 5750 62 99 9) (42 5750 62 99 9) (45 5750 245 127 1) (64 5750 1245 64 0) (60 5750 1245 64 0) (59 5750 1245 64 0) (55 5750 1245 64 0) (42 5875 120 99 9) (62 5992 370 64 9) (36 5992 241 100 9) (69 5992 3 105 9) (88 5992 2003 10 2) (42 6250 62 99 9) (42 6250 62 99 9) (62 6375 370 64 9) (42 6375 120 99 9) (39 6500 112 99 9) (36 6500 241 100 9) (69 6500 495 105 9) (61 6633 120 64 9) (62 6750 245 64 9) (61 6750 3 64 9) (42 6750 62 99 9) (42 6750 62 99 9) (42 6875 120 99 9) (45 7000 245 127 1) (42 7000 120 99 9) (36 7000 241 100 9) (69 7000 370 105 9) (64 7000 128 64 0) (60 7000 128 64 0) (59 7000 128 64 0) (55 7000 128 64 0) (42 7125 187 99 9) (42 7250 62 99 9) (42 7250 62 99 9) (42 7375 120 99 9) (42 7375 120 99 9) (69 7375 120 105 9) (39 7500 112 99 9) (36 7500 241 100 9) (69 7500 245 105 9) (43 7500 245 127 1) (62 7500 495 64 0) (58 7500 495 64 0) (57 7500 495 64 0) (53 7500 495 64 0) (84 7750 245 64 9) (42 7750 62 99 9) (42 7750 62 99 9) (69 7750 245 105 9) (38 7750 245 127 1) (42 7875 120 99 9))
  )

(define house1
  '((37 0 245 127 1) (36 0 241 127 9) (69 0 495 105 9) (63 0 1964 69 0) (60 0 1964 69 0) (56 0 1964 69 0) (53 0 1964 69 0) (42 250 62 99 9) (42 250 62 99 9) (84 250 245 64 9) (42 375 120 99 9) (39 500 112 99 9) (36 500 241 127 9) (69 500 495 105 9) (61 617 120 64 9) (61 617 120 64 9) (44 750 245 127 1) (62 750 237 64 9) (61 750 245 64 9) (42 750 62 99 9) (42 750 62 99 9) (42 875 120 99 9) (42 1000 120 99 9) (36 1000 241 100 9) (69 1000 370 105 9) (42 1125 187 99 9) (72 1250 120 64 9) (72 1250 120 64 9) (42 1250 62 99 9) (42 1250 62 99 9) (49 1250 245 127 1) (42 1375 120 99 9) (42 1375 120 99 9) (69 1375 120 105 9) (36 1492 241 100 9) (69 1492 3 105 9) (39 1492 120 99 9) (42 1742 62 99 9) (42 1742 62 99 9) (47 1742 245 127 1) (72 1742 120 64 9) (42 1867 120 99 9) (72 1867 120 64 9) (62 2000 370 64 9) (36 2000 241 100 9) (69 2000 495 105 9) (67 2000 979 69 0) (64 2000 979 69 0) (62 2000 979 69 0) (59 2000 979 69 0) (42 2250 62 99 9) (42 2250 62 99 9) (62 2375 370 64 9) (42 2375 120 99 9) (39 2500 120 99 9) (36 2500 241 100 9) (69 2500 495 105 9) (61 2617 120 64 9) (62 2742 3 64 9) (42 2742 62 99 9) (42 2742 62 99 9) (61 2742 245 64 9) (42 2875 120 99 9) (47 3000 245 127 1) (42 3000 120 99 9) (36 3000 241 100 9) (69 3000 370 105 9) (66 3000 974 69 0) (62 3000 974 69 0) (61 3000 974 69 0) (57 3000 974 69 0) (42 3125 187 99 9) (42 3250 62 99 9) (42 3250 62 99 9) (42 3375 120 99 9) (42 3375 120 99 9) (69 3375 120 105 9) (39 3483 103 99 9) (36 3483 241 100 9) (69 3483 12 105 9) (45 3483 245 127 1) (42 3750 62 99 9) (42 3750 62 99 9) (69 3750 245 105 9) (42 3750 245 127 1) (42 3875 120 99 9) (36 4000 241 100 9) (69 4000 495 105 9) (30 4000 245 127 1) (70 4000 974 69 0) (65 4000 974 69 0) (61 4000 974 69 0) (58 4000 974 69 0) (54 4000 974 69 0) (84 4250 245 64 9) (42 4250 62 99 9) (42 4250 62 99 9) (42 4375 120 99 9) (39 4500 112 99 9) (36 4500 241 100 9) (69 4500 495 105 9) (61 4625 120 64 9) (61 4625 120 64 9) (61 4750 245 64 9) (72 4750 120 64 9) (42 4750 62 99 9) (42 4750 62 99 9) (62 4750 245 64 9) (37 4750 245 127 1) (42 4875 120 99 9) (42 5000 120 99 9) (36 5000 241 100 9) (69 5000 370 105 9) (74 5000 974 69 0) (69 5000 974 69 0) (65 5000 974 69 0) (62 5000 974 69 0) (58 5000 974 69 0) (42 5125 187 99 9) (72 5250 120 64 9) (72 5250 120 64 9) (42 5250 62 99 9) (42 5250 62 99 9) (42 5250 245 127 1) (72 5375 120 64 9) (42 5375 120 99 9) (42 5375 120 99 9) (69 5375 120 105 9) (39 5500 120 99 9) (36 5500 241 100 9) (69 5500 495 105 9) (42 5750 62 99 9) (42 5750 62 99 9) (45 5750 245 127 1) (42 5875 120 99 9) (62 6000 370 64 9) (36 6000 241 100 9) (69 6000 495 105 9) (72 6000 979 69 0) (67 6000 979 69 0) (63 6000 979 69 0) (60 6000 979 69 0) (56 6000 979 69 0) (42 6250 62 99 9) (42 6250 62 99 9) (62 6375 370 64 9) (42 6375 120 99 9) (39 6500 112 99 9) (36 6500 241 100 9) (69 6500 495 105 9) (61 6633 120 64 9) (62 6750 245 64 9) (61 6750 3 64 9) (42 6750 62 99 9) (42 6750 62 99 9) (42 6875 120 99 9) (45 7000 245 127 1) (42 7000 120 99 9) (36 7000 241 100 9) (69 7000 370 105 9) (62 7000 974 69 0) (58 7000 974 69 0) (57 7000 974 69 0) (53 7000 974 69 0) (42 7125 187 99 9) (42 7250 62 99 9) (42 7250 62 99 9) (42 7375 120 99 9) (42 7375 120 99 9) (69 7375 120 105 9) (39 7500 112 99 9) (36 7500 241 100 9) (69 7500 245 105 9) (43 7500 245 127 1) (84 7750 245 64 9) (42 7750 62 99 9) (42 7750 62 99 9) (69 7750 245 105 9) (38 7750 245 127 1) (42 7875 120 99 9)))


;;; autre reglage des drums:

(define housebis
  '((37 0 245 127 1) (26 0 245 111 9) (83 0 5987 10 2) (36 0 241 127 9) (69 0 495 64 9) (68 0 1728 64 0) (64 0 1728 64 0) (63 0 1728 64 0) (59 0 1728 64 0) (44 250 62 64 9) (84 250 245 64 9) (42 250 120 127 9) (42 375 120 127 9) (39 500 112 64 9) (26 500 245 111 9) (36 500 241 127 9) (69 500 495 64 9) (61 617 120 64 9) (61 617 120 64 9) (44 750 245 127 1) (62 750 237 64 9) (61 750 245 64 9) (44 750 62 64 9) (42 750 120 127 9) (42 875 120 127 9) (26 1000 245 111 9) (44 1000 120 64 9) (36 1000 241 100 9) (69 1000 370 10 9) (44 1125 187 64 9) (72 1250 120 64 9) (72 1250 120 64 9) (44 1250 62 64 9) (42 1250 120 1 9) (49 1250 245 127 1) (44 1375 120 64 9) (42 1375 120 1 9) (69 1375 120 64 9) (26 1492 245 111 9) (36 1492 241 100 9) (69 1492 3 64 9) (39 1492 120 64 9) (44 1742 62 64 9) (42 1742 120 1 9) (47 1742 245 127 1) (66 1742 1728 64 0) (62 1742 1728 64 0) (61 1742 1728 64 0) (57 1742 1728 64 0) (72 1742 120 64 9) (42 1867 120 1 9) (72 1867 120 64 9) (26 2000 245 111 9) (62 2000 370 64 9) (36 2000 241 100 9) (69 2000 495 64 9) (44 2250 62 64 9) (42 2250 120 1 9) (62 2375 370 64 9) (42 2375 120 1 9) (26 2500 245 111 9) (39 2500 120 64 9) (36 2500 241 100 9) (69 2500 495 64 9) (61 2617 120 64 9) (62 2742 3 64 9) (44 2742 62 64 9) (42 2742 120 1 9) (61 2742 245 64 9) (42 2875 120 1 9) (47 3000 245 127 1) (26 3000 245 111 9) (44 3000 120 64 9) (36 3000 241 100 9) (69 3000 370 64 9) (44 3125 187 64 9) (44 3250 62 64 9) (42 3250 120 1 9) (44 3375 120 64 9) (42 3375 120 1 9) (69 3375 120 64 9) (26 3483 245 111 9) (39 3483 103 64 9) (36 3483 241 100 9) (69 3483 12 64 9) (66 3483 495 64 0) (62 3483 495 64 0) (61 3483 495 64 0) (57 3483 495 64 0) (45 3483 245 127 1) (44 3750 62 64 9) (42 3750 120 1 9) (69 3750 245 64 9) (42 3750 245 127 1) (42 3875 120 1 9) (26 4000 245 111 9) (36 4000 241 100 9) (69 4000 495 64 9) (30 4000 245 127 1) (61 4000 1212 64 0) (57 4000 1212 64 0) (56 4000 1212 64 0) (52 4000 1212 64 0) (84 4250 245 64 9) (44 4250 62 64 9) (42 4250 120 1 9) (42 4375 120 1 9) (26 4500 245 111 9) (39 4500 112 64 9) (36 4500 241 100 9) (69 4500 495 64 9) (61 4625 120 64 9) (61 4625 120 64 9) (61 4750 245 64 9) (72 4750 120 64 9) (44 4750 62 64 9) (62 4750 245 64 9) (42 4750 120 10 9) (37 4750 245 127 1) (42 4875 120 10 9) (26 5000 245 111 9) (44 5000 120 64 9) (36 5000 241 100 9) (69 5000 370 64 9) (44 5125 187 64 9) (72 5250 120 64 9) (72 5250 120 64 9) (44 5250 62 64 9) (42 5250 120 10 9) (42 5250 245 127 1) (61 5250 495 64 0) (57 5250 495 64 0) (56 5250 495 64 0) (52 5250 495 64 0) (72 5375 120 64 9) (44 5375 120 64 9) (42 5375 120 10 9) (69 5375 120 64 9) (26 5500 245 111 9) (39 5500 120 64 9) (36 5500 241 100 9) (69 5500 495 64 9) (44 5750 62 64 9) (42 5750 120 10 9) (45 5750 245 127 1) (64 5750 1245 64 0) (60 5750 1245 64 0) (59 5750 1245 64 0) (55 5750 1245 64 0) (42 5875 120 10 9) (26 5992 245 111 9) (62 5992 370 64 9) (36 5992 241 100 9) (69 5992 3 64 9) (88 5992 2003 10 2) (44 6250 62 64 9) (42 6250 120 1 9) (62 6375 370 64 9) (42 6375 120 1 9) (26 6500 245 111 9) (39 6500 112 64 9) (36 6500 241 100 9) (69 6500 495 64 9) (61 6633 120 64 9) (62 6750 245 64 9) (61 6750 3 64 9) (44 6750 62 64 9) (42 6750 120 10 9) (42 6875 120 10 9) (45 7000 245 127 1) (26 7000 245 111 9) (44 7000 120 64 9) (36 7000 241 100 9) (69 7000 370 64 9) (64 7000 128 64 0) (60 7000 128 64 0) (59 7000 128 64 0) (55 7000 128 64 0) (44 7125 187 64 9) (44 7250 62 64 9) (42 7250 120 10 9) (44 7375 120 64 9) (42 7375 120 10 9) (69 7375 120 64 9) (39 7500 112 64 9) (26 7500 245 111 9) (36 7500 241 100 9) (69 7500 245 64 9) (43 7500 245 127 1) (62 7500 495 64 0) (58 7500 495 64 0) (57 7500 495 64 0) (53 7500 495 64 0) (84 7750 245 64 9) (44 7750 62 64 9) (42 7750 120 10 9) (69 7750 245 64 9) (38 7750 245 127 1) (42 7875 120 10 9)))

(define house1bis
  '((37 0 245 127 1) (26 0 245 111 9) (36 0 241 127 9) (69 0 495 64 9) (63 0 1964 69 0) (60 0 1964 69 0) (56 0 1964 69 0) (53 0 1964 69 0) (44 250 62 64 9) (84 250 245 64 9) (42 250 120 127 9) (42 375 120 127 9) (39 500 112 64 9) (26 500 245 111 9) (36 500 241 127 9) (69 500 495 64 9) (61 617 120 64 9) (61 617 120 64 9) (44 750 245 127 1) (62 750 237 64 9) (61 750 245 64 9) (44 750 62 64 9) (42 750 120 127 9) (42 875 120 127 9) (26 1000 245 111 9) (44 1000 120 64 9) (36 1000 241 100 9) (69 1000 370 10 9) (44 1125 187 64 9) (72 1250 120 64 9) (72 1250 120 64 9) (44 1250 62 64 9) (42 1250 120 1 9) (49 1250 245 127 1) (44 1375 120 64 9) (42 1375 120 1 9) (69 1375 120 64 9) (26 1492 245 111 9) (36 1492 241 100 9) (69 1492 3 64 9) (39 1492 120 64 9) (44 1742 62 64 9) (42 1742 120 1 9) (47 1742 245 127 1) (72 1742 120 64 9) (42 1867 120 1 9) (72 1867 120 64 9) (26 2000 245 111 9) (62 2000 370 64 9) (36 2000 241 100 9) (69 2000 495 64 9) (67 2000 979 69 0) (64 2000 979 69 0) (62 2000 979 69 0) (59 2000 979 69 0) (44 2250 62 64 9) (42 2250 120 1 9) (62 2375 370 64 9) (42 2375 120 1 9) (26 2500 245 111 9) (39 2500 120 64 9) (36 2500 241 100 9) (69 2500 495 64 9) (61 2617 120 64 9) (62 2742 3 64 9) (44 2742 62 64 9) (42 2742 120 1 9) (61 2742 245 64 9) (42 2875 120 1 9) (47 3000 245 127 1) (26 3000 245 111 9) (44 3000 120 64 9) (36 3000 241 100 9) (69 3000 370 64 9) (66 3000 974 69 0) (62 3000 974 69 0) (61 3000 974 69 0) (57 3000 974 69 0) (44 3125 187 64 9) (44 3250 62 64 9) (42 3250 120 1 9) (44 3375 120 64 9) (42 3375 120 1 9) (69 3375 120 64 9) (26 3483 245 111 9) (39 3483 103 64 9) (36 3483 241 100 9) (69 3483 12 64 9) (45 3483 245 127 1) (44 3750 62 64 9) (42 3750 120 1 9) (69 3750 245 64 9) (42 3750 245 127 1) (42 3875 120 1 9) (26 4000 245 111 9) (36 4000 241 100 9) (69 4000 495 64 9) (30 4000 245 127 1) (70 4000 974 69 0) (65 4000 974 69 0) (61 4000 974 69 0) (58 4000 974 69 0) (54 4000 974 69 0) (84 4250 245 64 9) (44 4250 62 64 9) (42 4250 120 1 9) (42 4375 120 1 9) (26 4500 245 111 9) (39 4500 112 64 9) (36 4500 241 100 9) (69 4500 495 64 9) (61 4625 120 64 9) (61 4625 120 64 9) (61 4750 245 64 9) (72 4750 120 64 9) (44 4750 62 64 9) (62 4750 245 64 9) (42 4750 120 10 9) (37 4750 245 127 1) (42 4875 120 10 9) (26 5000 245 111 9) (44 5000 120 64 9) (36 5000 241 100 9) (69 5000 370 64 9) (74 5000 974 69 0) (69 5000 974 69 0) (65 5000 974 69 0) (62 5000 974 69 0) (58 5000 974 69 0) (44 5125 187 64 9) (72 5250 120 64 9) (72 5250 120 64 9) (44 5250 62 64 9) (42 5250 120 10 9) (42 5250 245 127 1) (72 5375 120 64 9) (44 5375 120 64 9) (42 5375 120 10 9) (69 5375 120 64 9) (26 5500 245 111 9) (39 5500 120 64 9) (36 5500 241 100 9) (69 5500 495 64 9) (44 5750 62 64 9) (42 5750 120 10 9) (45 5750 245 127 1) (42 5875 120 10 9) (26 6000 245 111 9) (62 6000 370 64 9) (36 6000 241 100 9) (69 6000 495 64 9) (72 6000 979 69 0) (67 6000 979 69 0) (63 6000 979 69 0) (60 6000 979 69 0) (56 6000 979 69 0) (44 6250 62 64 9) (42 6250 120 1 9) (62 6375 370 64 9) (42 6375 120 1 9) (26 6500 245 111 9) (39 6500 112 64 9) (36 6500 241 100 9) (69 6500 495 64 9) (61 6633 120 64 9) (62 6750 245 64 9) (61 6750 3 64 9) (44 6750 62 64 9) (42 6750 120 10 9) (42 6875 120 10 9) (45 7000 245 127 1) (26 7000 245 111 9) (44 7000 120 64 9) (36 7000 241 100 9) (69 7000 370 64 9) (62 7000 974 69 0) (58 7000 974 69 0) (57 7000 974 69 0) (53 7000 974 69 0) (44 7125 187 64 9) (44 7250 62 64 9) (42 7250 120 10 9) (44 7375 120 64 9) (42 7375 120 10 9) (69 7375 120 64 9) (39 7500 112 64 9) (26 7500 245 111 9) (36 7500 241 100 9) (69 7500 245 64 9) (43 7500 245 127 1) (84 7750 245 64 9) (44 7750 62 64 9) (42 7750 120 10 9) (69 7750 245 64 9) (38 7750 245 127 1) (42 7875 120 10 9))
  )