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