perl -e 'print join(" ", (!0 && 0) , (!0 and 0) , (not 0 && 0) , (not 0 and 0))'