#lang racket/base

(require (planet evhan/coremidi))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; C scale

(define (play-each notes)
  (define midi (midi-open))
  (program-change midi 1 0)
  (for/list ((note notes))
    (note-on midi 1 note 120)
    (sleep 1)
    (note-off midi 1 note))
  (midi-close midi) (void))

(play-each '(60 62 64 65 67 69 71 72 ))