1. - - 5


U-> U 38 U.R + U,+N-> U 38 +N U< U1,U2->F F "", U1 U2 16 UM* U1,U2->UD UD U1 U2 16 UM/MOD UD,U1->U2,U3 U2 U3 16 UD U1 UNSMUDGE * -> SMUDGE 31 UNTIL HK A,1-> // "BEGIN UNTIL" 47 F-> // UPDATE -> 25 USE *C ->A - 7 VARIABLE -> 32 VOC-LINK * ->A - 33 VOCABULARY VOCABULARY -> 33 CURRENT VOCABULARY# A VOCABULARY 33 VOCS * -> 43 WBLK * A,+N-> +N 6 WHILE HK 1->A,2 // WHILE 47 F-> // "BEGIN WHILE REPEAT" WIDTH * ->N - 7 WORD C->T - ; 27 WORDS + -> 44 CONTEXT XOR W1,W2->W3 " " 13 0 * ->0 ( "") 7 0< N->F F "", N 13 0<> * W->F F "", W 19 0! * A-> 11 0= W->F F "", W 13 1+ W1->W2 W1 1 17 1+! + A-> 1 17 1- W1->W2 W1 1 17 2+ W1->W2 W1 2 17 2! WD,A-> WD A 20 2* + W1->W2 1 20 2- W1->W2 W1 2 17 2/ W1->W2 1 20 2@ A->WD 20 2CONSTANT WD-> 32 WD 2DROP WD-> 12 2DUP WD->WD,WD 12 2LIT *K ->WD 2 23 2LITERAL *H WD-> // WD 23 ->WD // 2OVER WD1,WD2->WD1,WD2,WD1 12 2POP M 3 2POPPUT1 M 3 4- RW1 2PUSHRW1 M 3 RW1 2PUTRW1 M 3 4- RW1 2ROT WD1,WD2,WD3->WD2,WD3,WD1 12 2SWAP WD1,WD2->WD2,WD1 12 2VARIABLE -> 32 - * -> - 40