Archive (to help avoid internet rot):

words defined at https://repl.it/repls/SinfulTidyMining running in javascript: finish warm quit help blank list l +thru thru +load .line screen load evaluate to recurse [compile] ['] ' endcase endof of case unloop ?leave leave +loop loop ?do do until again repeat while begin endif then else if next for .r u.r . u. d.r d. (d.) #s # (s ( \ [char] char .( s( query accept word key key? does> : ; fvariable variable value fconstant constant create abort" >number du* .' s' ." c" s" skip scan ,' ," compile, ?exec ?comp abort literal c/s l/s c/l fit outfile state >in tib base last scr blk current context debugger warnings casesensitive false true compliance esc bl 2 cell 1 0 -1 loadhelp infolines tail all random epoch ms enter confirm alert eval hex decimal bye .allocated free allocate f, 1/f pi f. fmax fmin fsqrt falog fln f** facos fatan2 fatan fasin ftan fcos fsin f/ f* f- f+ s>f f>d d>f fdepth fround fabs fnegate f0> f0< f0<> f0= f< f> f<> f= f! f@ fover fswap fdup fdrop f.s vocs previous also order definitions teststuff hidden forth only vocabulary bufstats empty-buffers save-buffers update block buffer localcapacity capacity (marker) heap unused :noname name .name [ ] immediate body> >body find c, , allot here words digit -trailing cmove move j i perform execute #> sign hold <# within u> u< 0> 0< 0<> 0= < > <> = invert xor and or ud/mod um/mod d= d< m* um* d+ dabs dnegate s>d range chars cells +! >> rshift << lshift abs negate */mod /mod mod */ / * - + 2/ 2* cell- 1- char+ cell+ 1+ cookie@ cookie! !source source slow fast parse .s prompt cls page type emit space spaces cr pad aligned align /string erase fill off on exchange skim count c! c@ 2! 2@ ! @ roll pick depth 2r@ 2r> 2>r rdrop r@ r> >r max min 2over 2swap 2drop 2dup nip tuck -rot rot over swap drop ?dup dup newerror throw catch exit jsf ans f83 f79 foerthchen fig elapsed startclock info stackeffect box)