data;
param n := 2500;
param m := 500;
param p := 1500;
param sl :=.001;
param sa :=.01;
param pf := .1;