DB<7> print !!0

DB<8> print  !!1
   1

##</code><code>##

> perl -E "say ((1+1) * (1+1) * (1+1));"
8