/* mary.tc - lrb - 11/28/2007 12/10/2007

/*
/*                         NOTE FREQUENCIES (Hz)
/*       +---------------------------------------------------------+
/*       |                       OCTAVE                            |
/* +-----+---------------------------------------------------------+
/* |NOTE |  1 |   2 |  3  |  4  |  5  |   6  |   7  |   8  |   9   |
/* +-----+---------------------------------------------------------+
/* |  A  |27.5| 55.0|110.0|220.0|440.0| 880.0|1760.0|3520.0| 7040.0|
/* |A#/Bb|29.1| 58.3|116.5|233.1|466.2| 932.4|1864.7|3729.4| 7458.9|
/* |  B  |30.9| 61.7|123.5|247.0|493.9| 987.8|1975.7|3951.3| 7902.7|
/* |  C  |32.7| 65.4|130.8|261.6|523.3|1046.6|2093.2|4186.5| 8372.9|
/* |C#/Db|34.6| 69.3|138.6|277.2|554.4|1108.8|2217.7|4435.5| 8871.1|
/* |  D  |36.7| 73.4|146.8|293.7|587.4|1174.8|2349.7|4699.5| 9398.9|
/* |D#/Eb|38.9| 77.8|155.6|311.2|622.4|1244.8|2489.5|4979.1| 9958.1|
/* |  E  |41.2| 82.4|164.9|329.7|659.4|1318.8|2637.7|5275.3|10550.6|
/* |  F  |43.7| 87.3|174.7|349.3|698.7|1397.3|2794.6|5589.2|11178.4|
/* |F#/Gb|46.2| 92.5|185.1|370.1|740.2|1480.4|2960.8|5921.8|11843.5|
/* |  G  |49.0| 98.0|196.1|392.1|784.3|1568.2|3137.1|6274.1|12548.2|
/* |G#/Ab|51.9|103.9|207.7|415.5|830.9|1661.9|3323.7|6647.4|13294.8|
/* +-----+---------------------------------------------------------+
/*

int note(23)
char ns(23)
int speed

play int f,d [beep(f,d)]

plays char p(0) [
  char c
  while(c=p(0))[
    play(note((index(ns,24,p,1))-1),5);p=p+1
  ]
]

pause int j [
  int k
  while(j) [
    j=j-1
    k=0
    while((k=k+1)<speed)[]
  ]
]

mary [

speed=1000

note(0) =440
note(1) =466
note(2) =493
note(3) =523
note(4) =554
note(5) =587
note(6) =622
note(7) =659
note(8) =698
note(9) =740
note(10)=784
note(11)=830

note(12)= 880
note(13)= 932
note(14)= 987
note(15)=1046
note(16)=1108
note(17)=1174
note(18)=1244
note(19)=1318
note(20)=1397
note(21)=1480
note(22)=1568
note(23)=1661

ns="AbBCdDeEFgGaHiIJkKlLMnNh"

plays "GFeFGGG"
pause 8
plays "FFF"
pause 8
plays "Gii"
pause 8
plays "GFeFGGGGFFGFe"
pause 8
plays "l"
]