18 lines
244 B
Plaintext
18 lines
244 B
Plaintext
# find qotd
|
|
|
|
&fras &var "QOTD_QUOTES_PATH"
|
|
⊜□¬ ⦷"\n\n---\n\n".
|
|
°□⊡⊸(⌊×⚂⧻)
|
|
q ←
|
|
|
|
# continuously wait for connection
|
|
|
|
# &tcpl "127.0.0.1:0017"
|
|
# &p "listening on localhost:10017"
|
|
# ⍢(
|
|
# ⍜&tcpa(&w q).
|
|
# )1
|
|
# &cl
|
|
|
|
&pf q
|