function phi = justover(K,m,n,lam)
[Ainl,Binl] = lipab(m,n);

%[phi,fval] = linprog(ones(1,m^n),Ainl,Binl,-K',-lam,0*K,0*K+n,0,mylinopt);
[phi,fval] = linprog(ones(1,m^n),Ainl,Binl,-K',-lam,0*K,0*K+n);
return