data = c( 2, 8, 1, 2, 2, 5, 1, 2, 8, 3,
          5, 4, 2, 4, 7, 2, 2, 8, 4, 7,
          2, 6, 2, 3, 5, 1, 3, 3, 2, 5,
          4, 2, 2, 3, 6, 3, 6, 4, 9, 3,
          3, 7, 5, 1, 3, 4, 3, 4, 6, 2 )