#!/usr/bin/perl
use MIDI::Simple;
new_score;
set_tempo 500000;  # 1 qn => .5 seconds (500,000 microseconds)
patch_change 1, 2; 

noop c1, f, o5; 

n qn, A3;
n qn, C4;
n qn, E4;
n qn, A4;
n qn, B4;
n qn, E4;
n qn, C4;
n qn, B4;
n qn, C5;
n qn, E4;
n qn, C4;
n qn, C5;

write_score 'stairway.mid';

