tone.f

1319 val: e
1047 val: c
1567 val: g
784  val: G
659  val: E
880  val: A
988  val: B
932  val: Bb
1397 val: f
1175 val: d
1761 val: a

[ e  e  e  c  e  g  G  c  G  E  A  B  Bb  A  G  e  g  a  f  g  e  c  d  B  c  ] val: song
[  6  12  12  6  12  24  24  18  18  18  12  12   6  12  8  8  8  12  6  12  12  6  6  6  12  ] val: tempo

: play ( -- )  
    25 0 do        
        song i at tempo i at 20 * tone
        tempo i at 20 * ms
    loop ;