a    <-
b() %>%
  q() %>%
     g()

a <-    b() %>%
  c()%>%
ggg()