(midi->notes stream)
(midi->pattern stream)
(note? token)
(notes->pattern notes)
(pattern->midi-file file-name pattern)
(simplify note)