AND ALSO ANDIF
AND
* AND ( val mask -- val' )

mask with a bitwise and - be careful when applying
it to logical values.

core ordinary primitive