require 'dl/import'
module CrazyWhyStuff

  extend DL::Importable
  dlload "/System/Library/Frameworks/ApplicationServices.framework/Frameworks/SpeechSynthesis.framework/SpeechSynthesis"

  f =  ["SpeechBusy()", "SpeakString(void*)"].each{|x| extern "int #{x}"}
  az = ('a'..'z').to_a 
  ae= %w[a e i o u y]

  loop do
          speakString [(s=(2..(rand(20)+1)).map {|x|(l=[az-ae,ae][x%2])[rand(l.size-1)]}*"").size,s].pack("Ca*")
    sleep(0.1) until speechBusy == 0
  end
end