WIP to find crashing problem generating eturtle.exe

[hf86v099.git] / log.f

+           ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2\9fi \94áÐe\94a.\r
                    1 2 +\r
            Àá\9cñ ¯¡Ç¡¡e 1\89Á 2\9fi \94áÐe \88t 3·i \94ᣡµA µ©\9f¥\94a.\r
-           ( \88t1 \88t2 -- \88t3 )\r
            \88t1µA¬á \88t2\9fi ¨\85\94a.\r
                    2 1 -\r
            Àá\9cñ ¯¡Ç¡¡e 2µA¬á 1·i ¨\85 \88t 1·i \94ᣡµA µ©\9f¥\94a.\r
*           ( \88t1 \88t2 -- \88t3 )\r
            \88t1µA \88t2\9fi \89³Ðe\94a.\r
                    2 3 *\r
            Àá\9cñ ¯¡Ç¡¡e \89³Ðe \88t 6·i \94ᣡµA µ©\9f¥\94a.\r
/           ( \88t1 \88t2 -- \88t3 )\r
            \88t1·i \88t2\9d¡ \90a\92\85\94a.\r
                    6 2 /\r
            Àá\9cñ ¯¡Ç¡¡e 6·i 2\9d¡ \90a\92\85 \88t 3·i \94ᣡµA µ©\9f¥\94a.\r
MOD         ( \88t1 \88t2 -- \88t3 )\r
            \88t1·i \88t2\9d¡ \90a\92\85 \90a ỡ\9fi \8a\81Ðe\94a.\r
                    8 3 MOD\r
            Àá\9cñ ¯¡Ç¡¡e 8·i 3·a\9d¡ \90a\92\85 \90a ỡ 2\9fi \94ᣡµA µ©\9f¥\94a.\r
\90a ỡ      ( \88t1 \88t2 -- \88t3 )\r
            \88t1·i \88t2\9d¡ \90a\92\85 \90a ỡ\9fi \8a\81Ðe\94a.\r
                    8 3 \90a ỡ\r
            Àá\9cñ ¯¡Ç¡¡e 8·i 3·a\9d¡ \90a\92\85 \90a ỡ 2\9fi \94ᣡµA µ©\9f¥\94a.\r
.           ( \88t -- )\r
            \94ᣡ·\81  \85 ¶á \88t·i ÑÁ¡eµA ¯³»¥®\81\9d¡ ¥¡·¥\94a.\r
DUP         ( \88t -- \88t \88t )\r
            \94ᣡ·\81  \85 ¶á \88t·i ¥A\8da¬á \94ᣡµA µ©\9f¥\94a.\r
                    1 DUP\r
            Àá\9cñ ¯¡Ç¡¡e 1·i \96\81 \88\81 \94ᣡµA µ©\9f¥\94a.\r
¥A\8da        ( \88t -- \88t \88t )\r
            \94ᣡ·\81  \85 ¶á \88t·i ¥A\8da¬á \94ᣡµA µ©\9f¥\94a.\r
                    1 ¥A\8da\r
            Àá\9cñ ¯¡Ç¡¡e 1·i \96\81 \88\81 \94ᣡµA µ©\9f¥\94a.\r
OVER        ( \88t1 \88t2 -- \88t1 \88t2 \88t1 )\r
            \94ᣡ·\81 \96\81 ¤å¼\81 \88t·i ¥A\8da¬á \94ᣡµA µ©\9f¥\94a.\r
                    1 2 OVER\r
            Àá\9cñ ¯¡Ç¡¡e 1, 2, 1·i Àa\9d\81\9d¡ \94ᣡµA µ©\9f¥\94a.\r
\88å\90á        ( \88t1 \88t2 -- \88t1 \88t2 \88t1 )\r
            "\88å\90á (¥A\8da)". \94ᣡ·\81 \96\81 ¤å¼\81 \88t·i ¥A\8da¬á \94ᣡµA µ©\9f¥\94a.\r
                    1 2 \88å\90á\r
            Àá\9cñ ¯¡Ç¡¡e 1, 2, 1·i Àa\9d\81\9d¡ \94ᣡµA µ©\9f¥\94a.\r
SWAP        ( \88t1 \88t2 -- \88t2 \88t1 )\r
            \94ᣡ·\81  \85 ¶á \96\81 \88t·\81 ¸a\9f¡\9fi ¤a\8e\85\94a.\r
                    1 2 SWAP\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡ·\81  \85 ¶áµA\93e 1·¡, ¤a\9d¡ £»µA 2\88a ·¶\94a.\r
¤a\8e¡        ( \88t1 \88t2 -- \88t2 \88t1 )\r
            \94ᣡ·\81  \85 ¶á \96\81 \88t·\81 ¸a\9f¡\9fi ¤a\8e\85\94a.\r
                    1 2 ¤a\8e¡\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡ·\81  \85 ¶áµA\93e 1·¡, ¤a\9d¡ £»µA 2\88a ·¶\94a.\r
DROP        ( \88t1 -- )\r
            \94ᣡ·\81  \85 ¶á \88t·i ¤á\9f¥\94a.\r
¤á\9da        ( \88t1 -- )\r
            \94ᣡ·\81  \85 ¶á \88t·i ¤á\9f¥\94a.\r
ROT         ( \88t1 \88t2 \88t3 -- \88t2 \88t3 \88t1 )\r
            \94ᣡ·\81  \85 ¶á ­A \88t·i \95©\9f¥\94a. ­A ¤å¼\81 \88t·i \8cá\90\81  \85 ¶áµA µ©\9f¥\94a.\r
                    1 2 3 ROT\r
            Àá\9cñ ¯¡Ç¡¡e 2, 3, 1·i Àa\9d\81\9d¡ \94ᣡµA µ©\9f¥\94a.\r
\95©\9da        ( \88t1 \88t2 \88t3 -- \88t2 \88t3 \88t1 )\r
            \94ᣡ·\81  \85 ¶á ­A \88t·i \95©\9f¥\94a. ­A ¤å¼\81 \88t·i \8cá\90\81  \85 ¶áµA µ©\9f¥\94a.\r
                    1 2 3 \95©\9da\r
            Àá\9cñ ¯¡Ç¡¡e 2, 3, 1·i Àa\9d\81\9d¡ \94ᣡµA µ©\9f¥\94a.\r
>R          ( \88t\94ᣡ: \88t -- ; \96A\95©·¡\94ᣡ:  -- \88t )\r
            \88t\94ᣡ·\81 \88t·i \96A\95©·¡\94ᣡ\9d¡ µ«\8b¥\94a. 'DO ... LOOP'\90a ' \91 ...\r
            \95©´a'\88a \96A\95©·¡\94ᣡ\9fi ¬a¶wÐa£a\9d¡  LOOPµÁ '\95©´a' ¸åµA \96A\95©·¡\94ᣡ\9fi\r
            ¶¥¬wÈ\81\9d¡ \95©\9da \91½´a´¡ Ðe\94a.\r
>\96A         ( \88t\94ᣡ:  \88t -- ; \96A\95©·¡\94ᣡ:  -- \88t )\r
            \88t\94ᣡ·\81 \88t·i \96A\95©·¡\94ᣡ\9d¡ µ«\8b¥\94a. 'DO ... LOOP'\90a ' \91 ...\r
            \95©´a'\88a \96A\95©·¡\94ᣡ\9fi ¬a¶wÐa£a\9d¡  LOOPµÁ '\95©´a' ¸åµA \96A\95©·¡\94ᣡ\9fi\r
            ¶¥¬wÈ\81\9d¡ \95©\9da \91½´a´¡ Ðe\94a.\r
R>          ( \88t\94ᣡ:  -- \88t ; \96A\95©·¡\94ᣡ: \88t -- )\r
            \96A\95©·¡\94ᣡ·\81 \88t·i \88t\94ᣡ\9d¡ µ«\8b¥\94a. 'DO ... LOOP'\90a ' \91 ...\r
            \95©´a'\88a \96A\95©·¡\94ᣡ\9fi ¬a¶wÐa£a\9d¡  LOOPµÁ '\95©´a' ¸åµA \96A\95©·¡\94ᣡ\9fi\r
            ¶¥¬wÈ\81\9d¡ \95©\9da \91½´a´¡ Ðe\94a.\r
\96A>         ( \88t\94ᣡ:  -- \88t ; \96A\95©·¡\94ᣡ: \88t -- )\r
            \96A\95©·¡\94ᣡ·\81 \88t·i \88t\94ᣡ\9d¡ µ«\8b¥\94a. 'DO ... LOOP'\90a ' \91 ...\r
            \95©´a'\88a \96A\95©·¡\94ᣡ\9fi ¬a¶wÐa£a\9d¡  LOOPµÁ '\95©´a' ¸åµA \96A\95©·¡\94ᣡ\9fi\r
            ¶¥¬wÈ\81\9d¡ \95©\9da \91½´a´¡ Ðe\94a.\r
R@          ( \88t\94ᣡ:  -- \88t ; \96A\95©·¡\94ᣡ: \88t -- \88t )\r
            \96A\95©·¡\94ᣡ·\81 \88t·i \88t\94ᣡ\9d¡ ¥A\8f¥\94a.\r
\96A@         ( \88t\94ᣡ:  -- \88t ; \96A\95©·¡\94ᣡ: \88t -- \88t )\r
            \96A\95©·¡\94ᣡ·\81 \88t·i \88t\94ᣡ\9d¡ ¥A\8f¥\94a.\r
=           ( \88t1 \88t2 -- -1|0 )\r
                    5 5 =   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA -1·i µ©\9f¡\89¡\r
                    6 5 =   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¥\94a.\r
==          ( \88t1 \88t2 -- -1|0 )\r
                    5 5 =   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA -1·i µ©\9f¡\89¡\r
                    6 5 =   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¥\94a.\r
>           ( \88t1 \88t2 -- -1|0 )\r
                    5 6 >   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¡\89¡\r
                    5 5 >   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¡\89¡\r
                    6 5 >   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA -1·i µ©\9f¥\94a.\r
<           ( \88t1 \88t2 -- -1|0 )\r
                    5 6 <   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA -1·i µ©\9f¡\89¡\r
                    5 5 <   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¡\89¡\r
                    6 5 <   Àá\9cñ ¯¡Ç¡¡e \94ᣡµA  0·i µ©\9f¥\94a.\r
AND         ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe \91¥\9f¡\89³·i \94ᣡµA µ©\9f¥\94a.\r
\90{Ðq\8dA      ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe \91¥\9f¡\89³·i \94ᣡµA µ©\9f¥\94a.\r
OR          ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe \91¥\9f¡Ðs·i \94ᣡµA µ©\9f¥\94a.\r
\90{´a¶\89\9cá    ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe \91¥\9f¡Ðs·i \94ᣡµA µ©\9f¥\94a.\r
XOR         ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe ¤\81Èa¸â \91¥\9f¡\89³·i \94ᣡµA µ©\9f¥\94a.\r
\90{\98a\9d¡      ( \88t1 \88t2 -- \88t3 )\r
            \88t1\89Á \88t2·\81 \88b \90{(bit)µA \94\81Ðe ¤\81Èa¸â \91¥\9f¡\89³·i \94ᣡµA µ©\9f¥\94a.\r
WORDS       ( -- )\r
            ³i ®\81 ·¶\93e ¯¡Ç± i\97i·i ÑÁ¡eµA ¥¡·¥\94a.\r
 iÍa        ( -- )\r
            ³i ®\81 ·¶\93e ¯¡Ç± i\97i·i ÑÁ¡eµA ¥¡·¥\94a.\r
.S          ( -- )\r
            \88t\94ᣡ·\81 \88t\97i·i ¥¡·¥\94a.\r
.\94ᣡ       ( -- )\r
            \88t\94ᣡ·\81 \88t\97i·i ¥¡·¥\94a.\r
BYE         ( -- )\r
            \93iÎ\91·i \8f{\90\85\94a.\r
\8f{          ( -- )\r
            \93iÎ\91·i \8f{\90\85\94a.\r
CR          ( -- )\r
            ÑÁ¡eµA ¬\81 º\89·i  e\97e\94a.\r
\94a·qº\89      ( -- )\r
            ÑÁ¡eµA ¬\81 º\89·i  e\97e\94a.\r
HELP        ( -- )\r
            HELP \94a·q·\81 \90{ iµA \94\81Ðe \95¡¶\91 i·i Ìa·© 'HFORTH.HLP'µA¬á Àx´a ¥¡·¥\94a.\r
                    HELP DUP\r
            Àá\9cñ ¯¡Ç¡¡e '¥A\8da'\9fi ´á\98ý\89A ³a\93e»¡ ÑÁ¡eµA ¥¡·¥\94a.\r
\95¡¶\91 i      ( -- )\r
            HELP \94a·q·\81 \90{ iµA \94\81Ðe \95¡¶\91 i·i Ìa·© 'HFORTH.HLP'µA¬á Àx´a ¥¡·¥\94a.\r
                    \95¡¶\91 i ¥A\8da\r
            Àá\9cñ ¯¡Ç¡¡e '¥A\8da'\9fi ´á\98ý\89A ³a\93e»¡ ÑÁ¡eµA ¥¡·¥\94a.\r
CLS         ( -- )\r
            ÑÁ¡e·i »¡¶\85\94a.\r
ÑÁ¡e»¡¶¡    ( -- )\r
            ÑÁ¡e·i »¡¶\85\94a.\r
CONSTANT    ( \88t -- )\r
            »¡·e \90{ i·¡ ¯¡Åa»© \98\81: ( -- \88t )\r
            \94ᣡ·\81 \88t·i °á¬á '\8a\88·e\88t' \94a·qµA \90aµ¡\93e ·¡\9fq·a\9d¡ \8a\88·e\88t(¬w®\81)·i\r
             e\97e\94a.\r
                    5 CONSTANT FIVE\r
            Àá\9cñ ¯¡Ç¡¡e 'FIVE'\9ca\93e ·¡\9fq·\81 \8a\88·e\88t·i  e\97e\94a. \8ba\9f¡\89¡ \90a¬á\r
                    FIVE\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡ·\81  \85 ¶áµA 5\9fi µ©\9f¥\94a.\r
\8a\88·e\88t      ( \88t -- )\r
            »¡·e \90{ i·¡ ¯¡Åa»© \98\81: ( -- \88t )\r
            \94ᣡ·\81 \88t·i °á¬á '\8a\88·e\88t' \94a·qµA \90aµ¡\93e ·¡\9fq·a\9d¡ \8a\88·e\88t(¬w®\81)·i\r
             e\97e\94a.\r
                    5 \8a\88·e\88t \94a¬õ\r
            Àá\9cñ ¯¡Ç¡¡e '\94a¬õ'·¡\9ca\93e ·¡\9fq·\81 \8a\88·e\88t·i  e\97e\94a. \8ba\9f¡\89¡ \90a¬á\r
                    \94a¬õ\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡ·\81  \85 ¶áµA 5\9fi µ©\9f¥\94a.\r
VARIABLE    ( -- )\r
            »¡·e \90{ i·¡ ¯¡Åa»© \98\81: ( -- º\81­¡ )\r
                    VARIABLE AGE\r
            Àá\9cñ ¯¡Ç¡¡e 'AGE'\9ca\93e ·¡\9fq·\81 ¢\81\9fe\88t(¥e®\81)·i  e\97e\94a. \8ba\9f¡\89¡ \90a¬á\r
                    AGE\r
            Àá\9cñ ¯¡Ç¡¡e 'AGE'·\81 \88t·\81 º\81­¡\9fi \94ᣡ·\81  \85 ¶áµA µ©\9f¥\94a.\r
¢\81\9fe\88t      ( -- )\r
            »¡·e \90{ i·¡ ¯¡Åa»© \98\81: ( -- º\81­¡ )\r
                    ¢\81\9fe\88t \90a·¡\r
            Àá\9cñ ¯¡Ç¡¡e '\90a·¡'\9ca\93e ·¡\9fq·\81 ¢\81\9fe\88t(¥e®\81)·i  e\97e\94a. \8ba\9f¡\89¡ \90a¬á\r
                    \90a·¡\r
            Àá\9cñ ¯¡Ç¡¡e '\90a·¡'·\81 \88t·\81 º\81­¡\9fi \94ᣡ·\81  \85 ¶áµA µ©\9f¥\94a.\r
!           ( \88t º\81­¡ --  )\r
            \94ᣡ·\81  \85 ¶áµA ·¶\93e º\81­¡µA \94ᣡ·\81 \96\81 ¤å¼\81 \88t·i °á\90ý\93e\94a.\r
                    16 \90a·¡ !\r
            Àá\9cñ ¯¡Ç¡¡e ¢\81\9fe\88t '\90a·¡'µA 16·i °á\90ý\93e\94a.\r
@           ( º\81­¡ -- \88t )\r
            \94ᣡ·\81  \85 ¶áµA ·¶\93e º\81­¡µA \97e \88t·i \94ᣡµA µ©\9f¥\94a.\r
                    \90a·¡ @\r
            Àá\9cñ ¯¡Ç¡¡e ¢\81\9fe\88t '\90a·¡'·\81 \88t·i \94ᣡµA µ©\9f¥\94a.\r
:           ( -- )\r
            \90{ i »µ\8b¡\9fi ¯¡¸bÐe\94a.\r
                    : ¬\81\90{ i   \90{ i1 \90{ i2 \90{ i3 ;\r
            Àá\9cñ °á¬á ¬\81 \90{ i '¬\81\90{ i'·\81 ¸÷·\81\9fi ¯¡¸bÐe\94a.\r
;           ( -- )\r
            \90{ i »µ\8b¡\9fi \8f{\90\85\94a.\r
                    : ¬\81\90{ i   \90{ i1 \90{ i2 \90{ i3 ;\r
            Àá\9cñ ³e\94a.\r
(           ( -- )\r
            ')' \90aµ© \98\81\8ca»¡ \8bi·i ¯¡Ç¡»¡ ´g\89¡ \88å\90á\9aå\94a. '('\95¡ Ða\90a·\81 \90{ i·¡£a\9d¡\r
            \96áµA §¥Äe·¡ ¤e\97a¯¡ Ða\90a ·¡¬w ·¶´á´¡ Ðe\94a.\r
                    ( ·¡\88õ·e \94õ¦\9b·± i·³\93¡\94a.)\r
            Àá\9cñ ³e\94a. º\81·\81: '('\93e ¯¡Ç± i·¡»¡ e ')'\93e ¯¡Ç± i·¡ ´a\93¡\94a.\r
."          ( -- )\r
            '"'·¡ \90aµ© \98\81\8ca»¡·\81 \8bi·i ÑÁ¡eµA ¥¡·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a.\r
                    : ¯¡Ðñ   ." ·¡ \8bi·¡ ÑÁ¡eµA ¥¡µa»³\93¡\94a." ;\r
            Àá\9cñ ¯¡Ç¥ \94a·q\r
                    ¯¡Ðñ\r
            ·¡\9ca\89¡ ¯¡Ç¡¡e ÑÁ¡eµA '·¡ \8bi·¡ ÑÁ¡eµA ¥¡µa»³\93¡\94a.'\9fi ¥¡·¥\94a.\r
IF          ¯¡Åa»© \98\81: ( \88t -- )\r
            'IF ... THEN'\90a 'IF ... ELSE ... THEN'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡\r
            ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a. 'IF ... THEN'·\81 ¼b·a\9d¡ ³a·¡¡e \94ᣡ·\81  \85 ¶á\r
            \88t·¡ 0·¡ ´a\93© \98\81 e 'IF ... THEN' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¥\94a. 'IF ...\r
            ELSE ... THEN'·\81 ¼b·a\9d¡ ³a·¡¡e \94ᣡ·\81  \85 ¶á \88t·¡ 0·¡ ´a\93¡¡e 'IF ...\r
            THEN' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¡\89¡, \88t·¡ 0·¡¡e 'ELSE ... THEN' ¬a·¡·\81\r
            \90{ i·¡ ¯¡Åa»¥\94a.\r
                    : ?DUP   DUP IF DUP THEN ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    3 ?DUP\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 3·i 2 \88\81 µ©\9f¥\94a.\r
                    0 ?DUP\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 0·i 1 \88\81 µ©\9f¥\94a.\r
¡e          ¯¡Åa»© \98\81: ( \88t -- )\r
            '¡e  ... \9ca'\90a '¡e ... ´a\93¡¡e ... \9ca'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡\r
            ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a. '¡e ... \9ca'·\81 ¼b·a\9d¡ ³a·¡¡e \94ᣡ·\81  \85 ¶á\r
            \88t·¡ 0·¡ ´a\93© \98\81 e '¡e ... \9ca' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¥\94a. '¡e ...\r
            ´a\93¡¡e ... \9ca'·\81 ¼b·a\9d¡ ³a·¡¡e \94ᣡ·\81  \85 ¶á \88t·¡ 0·¡ ´a\93¡¡e '¡e\r
            ... \9ca' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¡\89¡, \88t·¡ 0·¡¡e '´a\93¡¡e ... \9ca' ¬a·¡·\81\r
            \90{ i·¡ ¯¡Åa»¥\94a.\r
                    : ?¥A\8da   ¥A\8da ¡e ¥A\8da \9ca ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    3 ?¥A\8da\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 3·i 2 \88\81 µ©\9f¥\94a.\r
                    0 ?¥A\8da\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 0·i 1 \88\81 µ©\9f¥\94a.\r
ELSE        ¯¡Åa»© \98\81: ( -- )\r
            'IF ... ELSE ... THEN'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. \94ᣡ·\81  \85 ¶á \88t·¡ 0·¡ ´a\93¡¡e 'IF ... ELSE' ¬a·¡·\81 \90{ i·¡\r
            ¯¡Åa»¡\89¡, \88t·¡ 0·¡¡e 'ELSE ... THEN' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¥\94a.\r
                    : TEST   IF DUP ELSE DROP THEN ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    3 1 TEST\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 3·i 2 \88\81 µ©\9f¥\94a.\r
                    3 0 TEST\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA ´a¢\81 \88õ\95¡ µ©\9f¡»¡ ´g\93e\94a.\r
´a\93¡¡e      ¯¡Åa»© \98\81: ( -- )\r
            '¡e ... ´a\93¡¡e ... \9ca'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. \94ᣡ·\81  \85 ¶á \88t·¡ 0·¡ ´a\93¡¡e '¡e ... ´a\93¡¡e' ¬a·¡·\81 \90{ i·¡\r
            ¯¡Åa»¡\89¡,  \88t·¡ 0·¡¡e '´a\93¡¡e ... \9ca' ¬a·¡·\81 \90{ i·¡ ¯¡Åa»¥\94a.\r
                    : ¯¡Ðñ   ¡e ¥A\8da ´a\93¡¡e ¤á\9da \9ca ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    3 1 ¯¡Ðñ\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA 3·i 2 \88\81 µ©\9f¥\94a.\r
                    3 0 ¯¡Ðñ\r
            Àá\9cñ ¯¡Ç¡¡e \94ᣡµA ´a¢\81 \88õ\95¡ µ©\9f¡»¡ ´g\93e\94a.\r
THEN        ¯¡Åa»© \98\81: ( -- )\r
            'IF ... THEN'\90a 'IF ... ELSE ... THEN'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡\r
            ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
\9ca          ¯¡Åa»© \98\81: ( -- )\r
            '¡e ... \9ca'\90a '¡e ... ´a\93¡¡e ... \9ca'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡\r
            ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
ENDIF       ¯¡Åa»© \98\81: ( -- )\r
            'IF ... ENDIF'\90a 'IF ... ELSE ... ENDIF'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡\r
            ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
BEGIN       ¯¡Åa»© \98\81: ( -- )\r
            'BEGIN ... UNTIL'\90a 'BEGIN ... WHILE ... REPEAT'·\81 ¼b·a\9d¡ ³aµa\r
            \88á\97s¯¡Ç±·\81 Àá·q·i Îa¯¡Ðe\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
·¡¹A¦\81Èá    ¯¡Åa»© \98\81: ( -- )\r
            '·¡¹A¦\81Èá  ... \8ca»¡'\90a '·¡¹A¦\81Èá ... \95·´e... \88á\97sÐ\81'·\81 ¼b·a\9d¡ ³aµa\r
            \88á\97s¯¡Ç±·\81 Àá·q·i Îa¯¡Ðe\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
UNTIL       ¯¡Åa»© \98\81: ( \88t -- )\r
            'BEGIN ... UNTIL'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
            '\88t'·¡ 0·¡ ´a\93¡¡e \88á\97s¯¡Ç±·i ¤õ´á\90a 'UNTIL' \94a·q·\81 \90{ i·¡ ¯¡Åa»¡\89¡\r
            '\88t'·¡ 0·¡¡e 'BEGIN ... UNTIL' ¬a·¡·\81 \90{ i·i \88á\97s¯¡Ç¥\94a.\r
                : COUNTDOWN   BEGIN DUP . 1 - DUP 0 = UNTIL ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                5 COUNTDOWN\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '5 4 3 2 1'·i ¥¡·¥\94a.\r
\8ca»¡        ¯¡Åa»© \98\81: ( \88t -- )\r
            '·¡¹A¦\81Èá ... \8ca»¡'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81 ·¶\94a.\r
            '\88t'·¡ 0·¡ ´a\93¡¡e \88á\97s¯¡Ç±·i ¤õ´á\90a '\8ca»¡' \94a·q·\81 \90{ i·¡ ¯¡Åa»¡\89¡\r
            '\88t'·¡ 0·¡¡e '·¡¹A¦\81Èá ... \8ca»¡' ¬a·¡·\81 \90{ i·i \88á\97s¯¡Ç¥\94a.\r
                : ¦\81Èá.´a\9c\81\9d¡.­A   ·¡¹A¦\81Èá ¥A\8da . 1 - ¥A\8da 0 = \8ca»¡ ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                5 ¦\81Èá.´a\9c\81\9d¡.­A\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '5 4 3 2 1'·i ¥¡·¥\94a.\r
WHILE       ¯¡Åa»© \98\81: ( \88t -- )\r
            'BEGIN ... WHILE ... REPEAT'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e\r
            ³i ®\81 ·¶\94a. '\88t'·¡  0·¡ ´a\93¡¡e \88á\97s¯¡Ç±·¡ \89\81­¢\96A´á 'WHILE' \94a·q·\81\r
            \90{ i·¡ ¯¡Åa»¡\89¡ '\88t'·¡ 0·¡¡e \88á\97s¯¡Ç±·i ¤õ´á\90a 'REPEAT' \94a·q·\81\r
            \90{ i·¡ ¯¡Åa»¥\94a.\r
                : COUNTDOWN   BEGIN DUP WHILE DUP . 1 - REPEAT ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                5 COUNTDOWN\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '5 4 3 2 1'·i ¥¡·¥\94a.\r
\95·´e        ¯¡Åa»© \98\81: ( \88t -- )\r
            '·¡¹A¦\81Èá ...  \95·´e... \88á\97sÐ\81'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e\r
            ³i ®\81 ·¶\94a. '\88t'·¡  0·¡ ´a\93¡¡e \88á\97s¯¡Ç±·¡ \89\81­¢\96A´á '\95·´e' \94a·q·\81\r
            \90{ i·¡ ¯¡Åa»¡\89¡ '\88t'·¡ 0·¡¡e \88á\97s¯¡Ç±·i ¤õ´á\90a '\88á\97sÐ\81' \94a·q·\81\r
            \90{ i·¡ ¯¡Åa»¥\94a.\r
                : ¦\81Èá.´a\9c\81\9d¡.­A   ·¡¹A¦\81Èá ¥A\8da \95·´e ¥A\8da . 1 - \88á\97sÐ\81 ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                5 ¦\81Èá.´a\9c\81\9d¡.­A\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '5 4 3 2 1'·i ¥¡·¥\94a.\r
REPEAT      ¯¡Åa»© \98\81: ( -- )\r
            'BEGIN ... WHILE ... REPEAT'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e\r
            ³i ®\81 ·¶\94a. 'BEGIN' \94a·q·a\9d¡ \88á\97s¯¡Ç±·i \89\81­¢Ðe\94a.\r
\88á\97sÐ\81      ¯¡Åa»© \98\81: ( -- )\r
            '·¡¹A¦\81Èá ...  \95·´e... \88á\97sÐ\81'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e\r
            ³i ®\81 ·¶\94a. '·¡¹A¦\81Èá' \94a·q·a\9d¡ \88á\97s¯¡Ç±·i \89\81­¢Ðe\94a.\r
DO          ¯¡Åa»© \98\81: ( \88t1 \88t2 -- )\r
            ¤e\97a¯¡ 'DO ... LOOP'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. '\88t2'\88a Ða\90a³¢ Äá¹a¬á '\88t1'·¡ \96I \98\81\8ca»¡ 'DO ... LOOP' ¬a·¡·\81\r
            \90{ i·i \88á\97s¯¡Ç¥\94a.\r
                    : 5STARS   5 0 DO ." *" LOOP ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    5STARS\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '*****'\88a Îa¯¡\96E\94a.\r
 \91          ¯¡Åa»© \98\81: ( \88t1 \88t2 -- )\r
            ¤e\97a¯¡ ' \91 ... \95©´a'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. '\88t2'\88a Ða\90a³¢ Äá¹a¬á '\88t1'·¡ \96I \98\81\8ca»¡ ' \91 ... \95©´a' ¬a·¡·\81\r
            \90{ i·i \88á\97s¯¡Ç¥\94a.\r
                    : \94a¬õ¥i   5 0  \91 ." *" \95©´a ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    \94a¬õ¥i\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '*****'\88a Îa¯¡\96E\94a.\r
LOOP        ¯¡Åa»© \98\81: ( -- )\r
            ¤e\97a¯¡ 'DO ... LOOP'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. '\88t2'\88a Ða\90a³¢ Äá¹a¬á '\88t1'·¡ \96I \98\81\8ca»¡ 'DO ... LOOP' ¬a·¡·\81\r
            \90{ i·i \88á\97s¯¡Ç¥\94a.\r
\95©´a        ¯¡Åa»© \98\81: ( -- )\r
            ¤e\97a¯¡ ' \91 ... \95©´a'·\81 ¼b·a\9d¡ ³a·¥\94a.  i»µ\8b¡ ¬wÈ\81µA¬á e ³i ®\81\r
            ·¶\94a. '\88t2'\88a Ða\90a³¢ Äá¹a¬á '\88t1'·¡ \96I \98\81\8ca»¡ ' \91 ... \95©´a' ¬a·¡·\81\r
            \90{ i·i \88á\97s¯¡Ç¥\94a.\r
I           ¯¡Åa»© \98\81: ( -- \88t )\r
             \91\95©·¡ \88a\9f¡Ç±®\81\9d¡ ¤e\97a¯¡ 'DO ... LOOP' ´eµA¬á ³e\94a.\r
            '\88t2 \88t1 DO I LOOP'µA¬á '\88a'\93e Àa\9d\81\9d¡ '\88t1'µA¬á '\88t2'-1 \8ca»¡·\81\r
            \88t\97i·i \94ᣡµA µ©\9f¥\94a.\r
                    : COUNT   0 DO I . LOOP ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    5 COUNT\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '0 1 2 3 4'\9fi ¥¡·¥\94a.\r
\88a          ¯¡Åa»© \98\81: ( -- \88t )\r
            "\88a(\9f¡Ç±®\81)."  \91\95©·¡ \88a\9f¡Ç±®\81\9d¡ ¤e\97a¯¡ ' \91 ... \95©´a' ´eµA¬á ³e\94a.\r
            '\88t2 \88t1  \91 \88a \95©´a'µA¬á '\88a'\93e Àa\9d\81\9d¡ '\88t1'µA¬á '\88t2'-1 \8ca»¡·\81\r
            \88t\97i·i \94ᣡµA µ©\9f¥\94a.\r
                    : ¤å.­A\8b¡   0  \91 \88a . \95©´a ;\r
            Àá\9cñ \90{ i·i »µ\89¡\r
                    5 ¤å.­A\8b¡\r
            Àá\9cñ ¯¡Ç¡¡e ÑÁ¡eµA '0 1 2 3 4'\9fi ¥¡·¥\94a.\r
IMMEDIATE   ( -- )\r
            ¤w\8bq »¡·e  i·i  i»µ\8b¡ ¬wÈ\81µA¬á\95¡ ¯©Ð\97\96A\93e '¤a\9d¡ i'\9d¡  e\97e\94a.\r
¤a\9d¡ i      ( -- )\r
            ¤w\8bq »¡·e  i·i  i»µ\8b¡ ¬wÈ\81µA¬á\95¡ ¯©Ð\97\96A\93e '¤a\9d¡ i'\9d¡  e\97e\94a.\r
'           ( -- º\81­¡ )\r
            "'" \94a·qµA \90aµ¡\93e \90{ i·\81 º\81­¡\9fi \94ᣡµA \90q\8b¥\94a.\r
\88{·e i      ( º\81­¡ -- )\r
            '\88{·e i' \94a·qµA \90aµ¡\93e ·¡\9fq·a\9d¡, \94ᣡµA º\81­¡\88a ·¶\93e \90{ i\89Á \99¢\88{·e\r
            ·©·i Ða\93e \90{ i·i  e\97e\94a.\r
                    ' DUP  \88{·e i  ¥A\8da\r
            Àá\9cñ ¯¡Ç¡¡e DUP µÁ \88{·e ·©·i Ða\93e \90{ i '¥A\8da'\9fi  e\97e\94a.\r
º\89ÑÁ¡e      ( º\89®\81 -- )\r
            ´a\9c\81¬á¦\81Èá \8bi¸a\88a ¥¡·© º\89 ®\81\9fi ¸÷Ðe\94a.\r
sin*        ( \8b©·¡ \88b\95¡ -- \8b©·¡*sin[\88b\95¡] )\r
            \8b©·¡µÁ \88b\95¡\9d¡¦\81Èá \8b©·¡µA ¬q\88b§¡\9fi \89³Ðe \88t·i \89\81¬eÐe\94a.\r
cos*        ( \8b©·¡ \88b\95¡ -- \8b©·¡*cos[\88b\95¡] )\r
            \8b©·¡µÁ \88b\95¡\9d¡¦\81Èá \8b©·¡µA ¬q\88b§¡\9fi \89³Ðe \88t·i \89\81¬eÐe\94a.\r
\9d¡.\8ba´á     ( x y -- )\r
            »¡\8bq ¸a\9f¡µA¬á \88á¦\82¹ÁÎa (x,y)\9d¡ ¬å·i \8bu\93e\94a. ÑÁ¡eµA \8bq·i \8bu\93e \88a¸w\r
            \8b¡¥¥¸â·¥ \90{ i·¡\94a. \88á¦\82 ¶\91»¢·± \90{ i '¹A¸a\9f¡\9d¡'µÁ ' eÇq.\88a'µA\r
            ³a·¥\94a.\r
\88á¦\82¥¡µa    ( -- )\r
            ÑÁ¡eµA \88á¦\82·¡ ·¶·a¡e »¡¶\81\89¡ ´ô·a¡e ¥¡·¥\94a.\r
¤wз        ( -- º\81­¡ )\r
            ¢\81\9fe\88t '¤wз'. \88á¦\82·\81 ¤wз·¡ \94q\89a ·¶\94a.\r
\88a\9d¡¶áá    ( -- º\81­¡ )\r
            ¢\81\9fe\88t '\88a\9d¡¶áá'. \88á¦\82·\81 x ¹ÁÎa\88a \94q\89a ·¶\94a.\r
­A\9d¡¶áá    ( -- º\81­¡ )\r
            ¢\81\9fe\88t '\88a\9d¡¶áá'. \88á¦\82·\81 y ¹ÁÎa\88a \94q\89a ·¶\94a.\r
 eÇq.\88a     ( \88a\9d¡\88á\9f¡ ­A\9d¡\88á\9f¡ -- )\r
            \88á¦\82·¡ »¡\8bq ¹ÁÎa (x,y)µA¬á (x+\88a\9d¡\88á\9f¡, y+­A\9d¡\88á\9f¡)\9d¡ ¶\91»¢·¥\94a.\r
            \90{ i '´|·a\9d¡'µÁ  '\96á\9d¡'µA ³a·¥\94a.\r
__µ¡\9fe½¢.ÑÉ\8d© ( \88á\9f¡ ÒU®\81 -- )\r
            \88á\9f¡ eÇq \88a\89¡ 10 \95¡ µ¡\9fe½¢·a\9d¡ \95¡\93e \88õ·i ÒU®\81 eÇq \96AÎ\89·¡Ðe\94a.\r
            \90{ i 'µ¡\9fe½¢.ÑÉ\8d©'µA ³a·¥\94a.\r
__¶E½¢.ÑÉ\8d© ( \88á\9f¡ ÒU®\81 -- )\r
            \88á\9f¡ eÇq \88a\89¡ 10 \95¡ ¶E½¢·a\9d¡ \95¡\93e \88õ·i ÒU®\81 eÇq \96AÎ\89·¡Ðe\94a.\r
            \90{ i '¶E½¢.ÑÉ\8d©'µA ³a·¥\94a.\r
\8a\8a\89A        ( -- )\r
            \88á¦\82·¡ »¡\90a\88e ¸aÂá\9fi \8a\8a\89A \8ba\9f¥\94a.\r
\88a\93i\89A      ( -- )\r
            \88á¦\82·¡ »¡\90a\88e ¸aÂá\9fi \88a\93i\89A \8ba\9f¥\94a.\r
¦\95\97i´á      ( -- )\r
            \88á¦\82·¡ »¡\90a\88e ¸aÂá\9fi \90q\8b¡»¡ ´g\93e\94a.\r
¦\95\90\81\9da      ( -- )\r
            \88á¦\82·¡ º\89·i \8ba·a¡a \88e\94a.\r
ÑÁ¡e»¡¶¡    ( -- )\r
            \88á¦\82·i ¹A¸a\9f¡\9d¡ ¥¡\90\81\89¡ ÑÁ¡e·i »¡¶\85\94a.\r
½¡\88\85ÑÁ¡e    ( -- )\r
            \8bi¸a\9fi ´a\9c\81 8 º\89µA e ¥¡·¥\94a.\r
µ¥ÑÁ¡e      ( -- )\r
            \8bi¸a\9fi ¸åÁA ÑÁ¡eµA ¥¡·¥\94a.\r
¹A¸a\9f¡\9d¡    ( -- )\r
            \88á¦\82·\81  á\9f¡\9fi ¶á½¢·a\9d¡ Ð\81¬á ÑÁ¡e \88a¶\85\95A\9d¡ ¥¡\90\81\89¡ ÑÁ¡e·i »¡¶\85\94a.\r
\95¡.µ¡\9fe½¢   ( \88b\95¡ -- )\r
            \88á¦\82·\81 ¤wз·i \88b\95¡ eÇq µ¡\9fe½¢·a\9d¡ \95©\9f¥\94a.\r
\95¡.¶E½¢     ( \88b\95¡ -- )\r
            \88á¦\82·\81 ¤wз·i \88b\95¡ eÇq ¶E½¢·a\9d¡ \95©\9f¥\94a.\r
´|·a\9d¡      ( \88á\9f¡ -- )\r
            \88á¦\82·¡ \88á\9f¡ eÇq ´|·a\9d¡ \88e\94a.\r
\96á\9d¡        ( \88á\9f¡ -- )\r
            \88á¦\82·¡ \88á\9f¡ eÇq \96á\9d¡ \88e\94a.\r
µ¡\9fe½¢.ÑÉ\8d© ( ¤e»¡\9fq \88b\95¡ -- )\r
            º\81´á»¥ ¤e»¡\9fq\89Á \88b\95¡\9d¡ µ¡\9fe½¢·a\9d¡ ÑÉ\8d©·i \8ba\9f¥\94a.\r
µ¡\9fe½¢.¶¥   ( ¤e»¡\9fq -- )\r
            º\81´á»¥ ¤e»¡\9fq·a\9d¡ µ¡\9fe½¢·a\9d¡ \95·\8ba\9ca£¡\9fi \8ba\9f¥\94a.\r
¶E½¢.ÑÉ\8d©   ( ¤e»¡\9fq \88b\95¡ -- )\r
            º\81´á»¥ ¤e»¡\9fq\89Á \88b\95¡\9d¡ ¶E½¢·a\9d¡ ÑÉ\8d©·i \8ba\9f¥\94a.\r
¶E½¢.¶¥     ( ¤e»¡\9fq -- )\r
            º\81´á»¥ ¤e»¡\9fq·a\9d¡ ¶E½¢·a\9d¡ \95·\8ba\9ca£¡\9fi \8ba\9f¥\94a.\r
\91A¡¡        ( Ça\8b¡ --\r
            º\81´á»¥ Ça\8b¡·\81 \91A¡¡\9fi \8ba\9f¥\94a.\r
\89sÃ¥\91A¡¡    ( -- )\r
            \88b ¥e·\81 \8b©·¡\88a 100, 200, 300, 400 ·¥ \91A¡¡\9fi \89sÁa \8ba\9f¥\94a.\r
\94a·¡´a¡¥\97a  ( -- )\r
            \94a·¡´a¡¥\97a ¡¡´··i \8ba\9f¥\94a.\r
\8bµ¤i        ( Ça\8b¡ -- )\r
            \8bµ¤i ¡¡´··i \8ba\9f¥\94a.\r
µa¬õ\8bµ¤i    ( Ça\8b¡ -- )\r
            60 \95¡³¢ \95©´a\88a¡a \8bµ¤i 6 \88\81\9fi \8ba\9f¥\94a.\r
¤a\9cq\88\81§¡    ( -- )\r
            ¤a\9cq\88\81§¡ ¡¡´··i \8ba\9f¥\94a.\r
\8d¹·¼        ( Ça\8b¡ -- )\r
            \8d¹·¼ ¡¡´··i \8ba\9f¥\94a.\r
\8d¹          ( Ça\8b¡ -- )\r
            \8d¹·¼ 8 \88\81·¥ \8d¹·i \8ba\9f¥\94a.\r
\94a\9fe\8d¹·¼    ( Ça\8b¡ -- )\r
            \94a\9fe ¡¡´··\81 \8d¹·¼·i \8ba\9f¥\94a.\r
\94a\9fe\8d¹      ( Ça\8b¡ -- )\r
            \8d¹·¼ 6 \88\81·¥ \8d¹·i \8ba\9f¥\94a.\r
Ð\95¬i        ( Ça\8b¡ -- )\r
            ¢\89\89i ¡¡´··i \8ba\9f¥\94a.\r
Ð\81          ( Ça\8b¡ -- )\r
            Ð\81 ¡¡´··i \8ba\9f¥\94a.\r
\88bÑw        ( Ça\8b¡ ¡¡¬á\9f¡®\81 -- )\r
            ¸÷\94a\88bÑw·i \8ba\9f¥\94a.\r
¥i          ( ¥e·\81_®\81 ÒU®\81 -- )\r
            ¥i ¡¡´··i \8ba\9f¥\94a.\r
\94a\88bÑw      ( Ça\8b¡ \88b\95¡ -- )\r
            Ça\8b¡µÁ \88b\95¡µA \98a\9ca µa\9cá ¡¡´··\81 \94a\88bÑw\89Á ¥i ¡¡´··i \8ba\9f¥\94a.\r
\94a\88bÑw¸a\9cw5 ( -- )\r
            \90{ i '\94a\88bÑw'·i ·¡¶wÐe ¸a\9cw\r
\94a\88bÑw¸a\9cw4 ( -- )\r
            \90{ i '\94a\88bÑw'·i ·¡¶wÐe \94a\9fe ¸a\9cw\r
\94a\88bÑw¸a\9cw12 ( -- )\r
            \90{ i '\94a\88bÑw'·i ·¡¶wÐe \99¡ \94a\9fe ¸a\9cw\r
\90a¢\81        ( \88a»¡\88b\95¡ \88a»¡\8b©·¡ \88a»¡Ã¡\8b¡®\81 -- )\r
            ¯a¯a\9d¡\9fi \96A¦\89\9cá¬á (recursive call) \90a¢\81 ¡¡´··i \8ba\9f¥\94a.\r
§¡\93iÇa\8b¡    ( -- º\81­¡ )\r
            \90{ i '¶w'µA¬á ¬a¶wÐa\93e ¢\81\9fe\88t\r
¶w          ( \90a·¡ -- )\r
            ¯a¯a\9d¡\9fi \96A¦\89\9cá¬á ¶w\8ba\9f±(dragon curve)·i \8ba\9f¥\94a.\r