while(a:?read(?-,?-,~))#~do dispterms(stirling2(a,b:?read())*b!);