Gustavus Samuel Leopold, Count Palatine of Zweibrücken