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

n qn, D3;
n qn, D3;

n qn, C3;
n qn, C3;

write_score 'rockingfreeworld.mid';

