\ \ Example 1 (1.4th) \ 95 jun 18 \ INCLUDE crimcomp.4th CLEAR-CRIM-SPACE \ resets CRIM-HERE, compiles END_CRIM and SEXIT ' DUP %-> %DUP ' * %-> %* ' + %-> %+ 4 %VALUE %A %: %SQUARE %DUP %* %; %: %^2+6A %SQUARE %LIT4 6 CRIM4, %A %* %+ %; 5 %' %^2+6A CALL-CRIM \ test: runs 5 %^2+6A (the result is 49) .( result: [49=] ) . CRIM-DUMP