9 lines
240 B
Text
9 lines
240 B
Text
[ iff [ say "true" ]
|
|
else [ say "false"] ] is echobool ( b --> )
|
|
|
|
[ 2dup and
|
|
say "A and B is " echobool cr
|
|
over or
|
|
say "A or B is " echobool cr
|
|
not
|
|
say "not A is " echobool cr ] is task ( A B --> )
|