Water-undersaturated melting experiments bearing upon the origin of potassium-rich magmas