Origin of ultrapotassic magma by partial melting of lithospheric mantle metasomatized and contaminated with subducted upper crustal material