Gustaf den III var envarm