Nu function that wraps NSSpeechSynthesizer to act like AppleScript say function

say.nu

#!/usr/local/bin/nush

(function say (something *voice)
  (if (*voice)
    (set s ((NSSpeechSynthesizer alloc) initWithVoice:("com.apple.speech.synthesis.voice." stringByAppendingString:(car *voice))))
    (else
      (set s ((NSSpeechSynthesizer alloc) init))))
  (s startSpeakingString:something)
  (while (s isSpeaking)
    (sleep 1)))