extras/pGenFns.R

In WinVector/wrapr: Wrap R Tools for Debugging and Parametric Programming

magrittr_1 <- function() {
 5 %>%
   sin(.)
}



DotArrow_1 <- function() {
 5 %.>%
   sin(.)
}



BizarroPipe_1 <- function() {
 5 ->.;
   sin(.)
}



TidyPipe_1 <- function() {
 5 %t>%
   sin(.)
}



magrittr_2 <- function() {
 5 %>%
   sin(.) %>%
   sin(.)
}



DotArrow_2 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_2 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_2 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_5 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_5 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_5 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_5 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_10 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_10 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_10 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_10 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_15 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_15 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_15 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_15 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_20 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_20 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_20 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_20 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_25 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_25 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_25 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_25 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_50 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_50 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_50 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_50 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_100 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_100 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_100 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_100 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_200 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_200 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_200 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_200 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_500 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_500 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_500 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_500 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}



magrittr_1000 <- function() {
 5 %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.) %>%
   sin(.)
}



DotArrow_1000 <- function() {
 5 %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.) %.>%
   sin(.)
}



BizarroPipe_1000 <- function() {
 5 ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.) ->.;
   sin(.)
}



TidyPipe_1000 <- function() {
 5 %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.) %t>%
   sin(.)
}