data;
param n := 2500;
param m := 0;
param p := 4500;
param sl :=.01;
param sa :=.01;
param pf := .1;