#include "cmtprog.h"

#define delay 15

echo(chan, pitch, vel) {
    vel = vel - 5;
    if (vel > 0) {
        midi_note(chan, pitch, vel);
	cause(delay, echo, chan, pitch, vel);
    } else midi_note(chan, pitch, 0);
}

keydown(chan, pitch, vel) {
    cause(delay, echo, chan, pitch, vel);
}

mainscore() {
    cause(1000, mainscore);
}