New programs halve rate of binge drinking by teenagers