my (@ans) = qw [ false true ];

      print $ans[ !!(assertion) ];