a %>%
  b() %>%
  c() %>%
  d(1 + e(sin(f))) %>%
  g_out()

a <- function(jon_the_pipe) {}

x %>%
  # break
  call()


y %>%
  call() # mor