🚀 go-pugleaf

$@?7>k!wC^GHBg3X$G$9!#$3$s$A$K$O!#(J

From article <GFJmA.908@mtak.bsj.com>,
	by logic@mtak.bsj.com (Masami Takikawa):
> forth $@Bg9%$-$NBl@n$G$9!#@$4VOC%b!<%I$G$9!#(J

$@!J%"%9%-!<$N!V%Q%=%3%s8@8l3X!W$H$$$&K\$K$O!K(J
>>Forth$@$N%W%m%0%i%`$,F|K\8l$G=q$+$l$F$$$^$9!#(JForth
>>$@$O!"5U%]!<%i%s%I5-K!$@$H$+8@$o$l$F4w$_7y$o$l$F$$$k$H$3$m$,$"(J
>>$@$j$^$9$,!"$=$l$OBg$-$J8m2r$G$9!#$?$@8l=g$,F|K\8l$HF1$8$G$"$k!"(J
>>$@$H$$$&$3$H$@$1$G$9!#F|K\8l$,Jl9q8l$N?M$J$i!"A4A3J?5$$G$9!#(J

> $@KM$O7k6IBLL\$G$7$?!#%9%?%C%/$K2?$,@Q$s$G$"$k$N$+!"3P$($i$l$J$$(J
> $@$7!":.Mp$7$F$7$^$&$N$G$9!#(J
> $@$d$O$j!"#C$N$h$&$K%9%?(J
> $@%C%/>e$NJQ?t$KL>A0$r$D$1$F$7$^$&$N$,!"@52r$@$H;W$$$^$9!#(J

$@:G6a$N(JForth$@$K$O!"%9%?%C%/$KL>A0$,IU$1$i$l$k$b$N$,$"$j$^$9!#(J
$@#G#N#U%=%U%H%&%'%"$H$7$FG[$i$l$F$$$k(J Tile Forth $@$,$=$&$G$9!#(J

$@NY$N(J fj.lang.postscript $@$K$O!"(JPostScirpt $@$N;H$$<j$NJ}$,$?$/(J
$@$5$s$$$i$C$7$c$$$^$9$,!"$I$&$J$s$G$7$g$&$M!#(JPostScript $@$N>l(J
$@9g!"5U%]!<%i%s%I5-K!$KG:$^$5$l$F$$$k46$8$O$7$J$$$N$G$9$,!#(J
$@!V5U%]!<%i%s%I$$$d$G!"(JPostScript $@$r;H$&$N$r$d$a$^$7$?!W$H$$(J
$@$&?M$NOC$rJ9$$$?$3$H$,$"$j$^$;$s!#(J

$@$"$H!"%O!<%I%&%'%"J}LL$N?M$K$b5U%]!<%i%s%I5-K!$OFk@w$_$,?<$$(J
$@$H;W$$$^$9!#$?$H$($P!"(J

       A  ___
       ===|  )---+
       B  ---    | ___
	  AND    ==)  >--
                 | ---
       ----------+  OR
       C

$@$N$h$&$J5-K!$O!"<B$O!"5U%]!<%i%s%I$J$s$G$9$M!#@h$K%G!<%?$r=q(J
$@$$$F!"8e$G1i;;;R!J(JAND, OR$@!K$r=q$$$F$$$k$G$7$g!#(JTile Forth $@$@(J
$@$H(J

    locals
    : f { a b c } a b and c or ;

$@$3$s$J46$8$G!"=q$1$^$9!#(J locals $@$H$$$&$N$,!"6I=jJQ?t$r;H$&$?(J
$@$a$N<vJ8$N(J vocabulary $@$G$9!#6I=jJQ?t$H$$$&$0$i$$$G$9$+$i!"%9(J
$@%?%C%/$KL>A0$rIU$1$k$@$1$G$J$/!"6I=jJQ?t$K$b;H$($=$&$G$9!#(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J
PostScript
$@$7$P$i$/N9$K=P$^$9!#(Jspool $@$K5-;v$,;D$C$F$$$k4V$/$i$$$K$O!"JV$C(J
$@$F$/$k$H;W$$$^$9!#JV$C$F$/$k$H!"3h$-$?2=@P$K$J$C$F$$$k$+$J!#(J