WeirdTest <- function() 
  c(100,100,100,99,98,100,75,75,75,74,76,68,72,76,68,72,99,72,70,76,100)