#!/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 en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;
n en, E2,B3,E4,G4;

n qn, D4,A4,D5,Fs5;
n qn, D4,A4,D5,Fs5;

n qn, C3,E3,G4,C4;
n qn, C3,E3,G4,C4;

write_score 'rockingfreeworld.mid';

