s:index-of s:index-of a:index-of-string a:index-of a:contains-string? s:contains-string? s:contains-char? s:split-on-string s:split d:words-beginning-with d:words-with d:words listen banner // bye NoEcho clear s:get-word s:get parse-until image:save TIB clock:utc:second clock:utc:minute clock:utc:hour clock:utc:year clock:utc:month clock:utc:day clock:second clock:minute clock:hour clock:year clock:month clock:day clock:timestamp clock:operation abort script:abort-include script:ignore-to-eol script:current-line script:current-file script:name include script:get-argument script:arguments socket:configure socket:close socket:recv socket:send socket:connect socket:accept socket:listen socket:bind socket:create socket:gethostbyname socket:operation n:random unix:slurp-pipe unix:for-each-file unix:count-files-in-cwd unix:get-cwd unix:pipe unix:sleep unix:putenv unix:getenv unix:chdir unix:pclose unix:popen unix:kill unix:wait unix:getpid unix:exit unix:exec3 unix:exec2 unix:exec1 unix:exec0 unix:fork unix:system io:unix-syscall e:put f:dump-astack f:dump-stack f:fetch f:store e:to-f f:to-e f:signed-square f:signed-sqrt f:E1 e:clip e:-inf? e:inf? e:nan? e:zero? e:min? e:max? e:n? e:-INF e:INF e:NAN e:MIN e:MAX f:sign f:case f:dec f:inc f:between? f:limit f:max f:min f:round f:-inf? f:inf? f:nan? f:-INF f:INF f:NAN f:E f:PI f:put f:abs f:negate f:negative? f:positive? f:square sigil:. f:rot f:dup-pair f:drop-pair f:nip f:tuck f:over f:adepth f:pop f:push f:atan f:acos f:asin f:tan f:cos f:sin f:power f:log f:swap f:drop f:dup f:depth f:gt? f:lt? f:-eq? f:eq? f:sqrt f:ceiling f:floor f:/ f:* f:- f:+ f:to-string f:to-number s:to-float n:to-float float:operation file:spew file:slurp file:for-each-line file:read-line file:open-for-writing file:open-for-append file:open-for-reading file:exists? file:flush file:delete file:size file:seek file:tell file:write file:read file:close file:open file:R+ file:A file:W file:R file:operation listen s:get c:get FREE dump-stack reset n:put s:put tab sp nl c:put io:scan-for io:invoke io:query io:enumerate hex octal binary decimal indexed-times K J I s:evaluate a:ends-with? a:begins-with? a:-eq? a:eq? a:middle a:right a:left } { a:make a:index/string a:index a:reduce a:store a:fetch a:th a:reverse a:map a:contains/string? a:contains? a:filter a:chop a:prepend a:append a:to-string a:copy a:dup a:for-each a:from-string a:counted-results a:length d:lookup-xt d:for-each does curry reorder s:const s:format n:to-string s:replace-all s:tokenize-on-string s:tokenize s:replace s:split/string s:split/char sigil:' RewriteUnderscores s:trim s:trim-right s:trim-left s:to-lower s:to-upper c:to-number c:toggle-case c:to-string c:to-lower c:to-upper c:-consonant? c:-vowel? c:-visible? c:-whitespace? c:-digit? c:-uppercase? c:-lowercase? c:whitespace? c:consonant? c:vowel? c:visible? c:digit? c:letter? c:uppercase? c:lowercase? ASCII:US ASCII:RS ASCII:GS ASCII:FS ASCII:SUB ASCII:EM ASCII:CAN ASCII:ETB ASCII:SYN ASCII:NAK ASCII:DC4 ASCII:DC3 ASCII:DC2 ASCII:DC1 ASCII:DLE ASCII:SI ASCII:SO ASCII:BEL ASCII:ACK ASCII:ENQ ASCII:EOT ASCII:ETX ASCII:STX ASCII:SOH ASCII:DEL ASCII:SPACE ASCII:CR ASCII:FF ASCII:VT ASCII:LF ASCII:HT ASCII:BS ASCII:ESC ASCII:NUL $ ' s:WHITESPACE s:PUNCTUATION s:ASCII-LETTERS s:ASCII-UPPERCASE s:ASCII-LOWERCASE s:DIGITS s:copy s:ends-with? s:begins-with? s:left s:right s:substr s:map s:filter s:index/string s:contains/string? s:hash s:contains/char? s:index/char s:for-each s:append s:prepend s:reverse s:chop sigil:' s:keep s:skip s:empty s:temp STRINGS TempStringMax TempStrings buffer:preserve buffer:set buffer:size buffer:empty buffer:get buffer:add buffer:end buffer:start }} ---reveal--- {{ ScopeList copy v:update v:preserve allot v:off v:on v:limit v:dec v:inc v:dec-by v:inc-by n:between? n:dec n:inc n:limit n:abs n:max n:min n:sqrt n:square n:negate n:pow mod / rot -if: if: -if; if; n:odd? n:even? n:strictly-positive? n:positive? n:negative? n:-zero? n:zero? n:MIN n:MAX gteq? lteq? not s:case case FALSE TRUE sigil:| times until while tri@ tri* tri bi@ bi* bi sip dip dup-pair ?dup drop-pair nip over tuck const var var-n d:create sigil:! sigil:@ here sigil:^ sigil:\ sigil:` compiling? compile:ret compile:call compile:jump compile:lit ) ( unhook set-hook hook primitive data immediate reclass d:last.name d:last.class d:last.xt d:last depth EOM err:notfound Base r d i Version class:primitive d:lookup interpret again repeat sigil:$ sigil:& sigil:: sigil:# d:add-header class:data class:macro class:word d:name d:class d:xt d:link Dictionary ] [ ; s, , Heap Compiler sigil:( -if if choose s:length s:eq? s:to-number store-next fetch-next 0; pop push shift xor or and /mod * - + store fetch gt? lt? -eq? eq? call swap drop dup