age    <- 7:100
dying  <-c( 11,  11,   6, 5.5, 5.5, 5.5, 5.5,   2, 3.5, 3.5, 
           3.5, 5, 6,  6, 4.5, 6.5, 6.5, 6.5, 6.5, 6.5, 9,8,  
             7,   7,   7,   7,   7,   7,   7,   8, 9.5, 9.5,
           9.5, 9.5, 9.5,   8,   9,   9,   7,   7,   7,   7,
            10,10.5,10.5,10.5,10.5,  11,   9,   9,  10,  10,
            10,  10,  10,  10,  12, 9.5, 9.5, 9.5, 9.5, 9.5,
           9.5,  14,   9,  11, 9.5, 9.5, 9.5, 9.5,   6,   7,
             7,   7,   3,   4,   4,   2,   1,   1,   1,   1,
             1,   1,   1,   1,   1,   1,   1,   1,   1,   0,
           0.2, 0.6)
current<- 1:84
persons<-c(1000,855,798,760,732,710,692,680,670,661,
            653,646,640,634,628,622,616,610,604,598,
            592,586,579,573,567,560,553,546,539,531,
            523,515,507,499,490,481,472,463,454,445,
            436,427,417,407,397,387,377,367,357,346,
            335,324,313,302,292,282,272,262,252,242,
            232,222,212,202,192,182,172,162,152,142,
            131,120,109, 98, 88, 78, 68, 58, 49, 41,
             34, 28, 23, 20)
septs  <-c(seq(7,84,by=7),100)
person7<-c(5547,4584,4270,3964,3604,3178,2709,2194,1694,1204,692,253,107)
sum7 <- sum(person7)