﻿s←OpenAI.Audio.Speech 'Suomi on kaunis maa, ja ihmiset ovat hyvin ystävällisiä.'
s.OutFile←'/tmp/finnish.wav' 1 ⍝ 1 specifies to overwrite if necessary
s.Run.IsOK
]open c:\tmp\finnish.wav

ts←OpenAI.Audio.Transcription '/tmp/finnish.wav'
ts.Run.IsOK
ts.Response.Data.text

tl←OpenAI.Audio.Translation '/tmp/finnish.wav'
tl.Run.IsOK
tl.Response.Data.text

s←OpenAI.Audio.Speech tl.Response.Data.text ('/tmp/english.wav' 1) 'shimmer'
s.Run.IsOK
]open c:\tmp\english.wav
