program caltest;
uses speech;
var StartSpeed:word;
begin
  writeln;
  CalibrateSpeech(true);
  speak('   aw-ah-ah-ah th-ae-t-s b-eh-t-r');
end.