( scratchpad - auto ) :s
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ output-port f ~win32-socket~ f f ~buffer~ }
T{ FileArgs f ALIEN: 1880 ~buffer~ 44 ~byte-array~ ALIEN:...
T{ output-port f ~win32-socket~ f f ~buffer~ }
"The specified network name is no longer available."

--- Data stack:
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
( scratchpad - auto ) :c
[ swap >c call -> c> drop ]
[
    (command-line) parse-command-line
    load-vocab-roots run-user-init "e" get
    [ (( -- )) eval ] when* ignore-cli-args? not script get and
    [ run-script ] [ "run" get run ] if* -> output-stream get
    [ stream-flush ] when* 0 exit
]
listener
(listener)
with-datastack
[ [ ~quotation~ dip call datastack ] dip -> continue-with ]
[ [ ~array~ like set-datastack ] dip call -> datastack ]
start-bot
connect-irc
port-flush
M\ winnt (wait-to-write)
wait-for-file
file-error?
[
    63 getenv error-thread set-global
    continuation -> error-continuation set-global rethrow
]

--- Data stack:
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
( scratchpad - auto ) :r
T{ continuation f ~array~ ~callstack~ ~array~ ~vector~ ~vector~...
T{ irc-client f ~irc-profile~ ~duplex-stream~ ~mailbox~...
T{ output-port f ~win32-socket~ f f ~buffer~ }

--- Data stack:
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
T{ irc-channel-chat f ~mailbox~ ~irc-client~ "#concatenative" f...
( scratchpad - auto )