Theodore von Neuhoff, King of Corsica