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