model fts-lp.mod;
data fts-lp.dat;

let MinProfit := 58000;
for {1 .. 6} {

    solve;
    display Profit;
    display 108390 - Profit;
    display x;
    let MinProfit := MinProfit - 2000;
}