INDUSTRIAL PEAK SHAVING IN GERMANY