pd%>%
mutate(x =devide(call3(a, b, 1 + q))) %>%
     filter( !terminal) %>%
  ggplot(aes(x = new, y = old))+
geom_point()

1+(
22- (1/
  2718 /
    23* 29 * (
            2     * (22*-1) +
              1)     -
          18) +
    sin(    pi) -
2
  )

a <- function(z) {
  a %>%
    q() %>%
    n()
}

 a %>%
b()%>%
c()%>%
k()