{

  test_pipe <- function(go) {
    1:5 %>% 
    "*"(100) %>% 
    {if (go == "left") mean(.) else sum(., -1)} %>% 
    cat("go is '", go, "' -- value is ", ., fill = TRUE, sep="")
  }

  test_pipe("left")
  test_pipe("right")
}