Select Code to Download

D:\>perl -lwe "my @b=(0,1); for (qw(0E0 1E0)) { print; print qq(Bool:)
+,$b[!!$_]; print qq(0+:),0+$_; print $/; }"
0E0
...
1E0
Bool:1
0+:1