Alps could lose 80% of glacier cover by 2100