"kuh" <-
c(60, 70, 55, 56, 70, 65, 90, 69, 68, 58, 70, 70, 60, 60, 60, 
50, 50, 48, 59, 50, 60, 70, 55, 46, 57, 57, 60, 41, 46, 40, 40, 
56, 47, 68, 54, 62, 57, 58, 55, 58, 57, 49, 51, 57, 43, 44, 55, 
42, 43, 62, 50, 42, 45, 39, 50, 47, 58, 58, 61, 60, 58, 54, 59, 
39, 60, 45, 46, 42, 47, 43, 44, 46, 47, 51, 48, 52)