speak-main ( -- )

Vocabulary

text-to-speech

Inputs

None

Outputs

None

Definition

USING: command-line io namespaces sequences splitting ;

IN: text-to-speech

: speak-main ( -- )
    command-line get
    [ [ speak ] each-line ] [ join-words speak ] if-empty ;