00_biz_comment-decomment.R

x <- 1:5
#x <- c(TRUE, FALSE, FALSE, TRUE, FALSE)

cat(
  "The bizarro version of x is",
  -x,
  #!x,
  "\n"
)