say grep(get,(2,3,5,7,11,13 X*4,6,8,9,10,12))/36