[CM] grace beta for win32

[Heinrich Taube]

sorry, this is it with proper formatting (i tested it)

define process piano-phase (stop, keys, rate)
  run with pat = make-cycle(keys)
    until elapsed() >= stop
    send "mp:midi", key: key(next(pat)), dur: rate
    wait rate
  end

begin
  with trope = {e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5} ,
       nsecs = 20
  sprout list( piano-phase(nsecs, trope, .167),
               piano-phase(nsecs, trope, .17))
end