pour depart
rg vg vt vc ct
donne "hz 0
donne "s 20
music
fin

pour music
donne "hz (:hz + :s)
sisinon :hz < 10000
[
son :hz 1
vt (ec :hz[Hz])
music 
]
[ec[On s'arrte  10000 hz !]]
fin
