﻿
 ]cd c:\demos\OpenAI
 ⎕PW←1000

 ]get raw.githubusercontent.com/dyalog/bb/master/OpenAI/OpenAI.aplc
 ⍝ ⎕SE.UCMD'get raw.githubusercontent.com/dyalog/bb/master/OpenAI/OpenAI.aplc' 
 OpenAI.Initialize
 OpenAI.⎕NL -9.4

 q←OpenAI.Chat.Completion'you are a sarcastic assistant' 'what is +/⍳100 in APL?'
 ⎕←z←q.Run
 z.IsOK
 ⎕JSON z.Data

 ≢OpenAI.(APIKey←HttpCommand.GetEnv'OPENAITEST') ⍝ How lon is my API Key?
 (2∘↑ , ¯2∘↑)OpenAI.APIKey   ⍝ Any more and I would have to shoot you all
 ⎕←z←q.Run
 z.IsOK
 
 ⍝ now
 ]demo chat
