param: ORIG:  supply :=
        GARY   1400  CLEV   2600  PITT   2900 ;
param: DEST:  demand :=
        FRA     900  DET    1200  LAN     600  WIN     400 
        STL    1700  FRE    1100  LAF    1000 ;
param npiece : FRA DET LAN WIN STL FRE LAF :=
       GARY      3   3   3   2   3   2   3
       CLEV      3   3   3   3   3   3   3
       PITT      2   2   2   2   1   2   1 ;
param rate :=
  [GARY,FRA,*]  1 39  2 50  3 70  [GARY,DET,*]  1 14  2 17   3 33
  [GARY,LAN,*]  1 11  2 12  3 23  [GARY,WIN,*]  1 14  2 17
  [GARY,STL,*]  1 16  2 23  3 40  [GARY,FRE,*]  1 82  2 98
  [GARY,LAF,*]  1  8  2 16  3 24

  [CLEV,FRA,*]  1 27  2 37  3 47  [CLEV,DET,*]  1  9  2  19  3  24
  [CLEV,LAN,*]  1 12  2 32  3 39  [CLEV,WIN,*]  1  9  2  14  3  21
  [CLEV,STL,*]  1 26  2 36  3 47  [CLEV,FRE,*]  1 95  2 105  3 129
  [CLEV,LAF,*]  1  8  2 16  3 24

  [PITT,FRA,*]  1 24  2 34  [PITT,DET,*]  1 14  2  24
  [PITT,LAN,*]  1 17  2 27  [PITT,WIN,*]  1 13  2  23
  [PITT,STL,*]  1 28        [PITT,FRE,*]  1 99  2 140
  [PITT,LAF,*]  1 20 ;

param limit :=
  [GARY,*,*] FRA 1  500 FRA 2 1000 DET 1  500 DET 2 1000
             LAN 1  500 LAN 2 1000 WIN 1 1000
             STL 1  500 STL 2 1000 FRE 1 1000
             LAF 1  500 LAF 2 1000
  [CLEV,*,*] FRA 1  500 FRA 2 1000 DET 1  500 DET 2 1000
             LAN 1  500 LAN 2 1000 WIN 1  500 WIN 2 1000
             STL 1  500 STL 2 1000 FRE 1  500 FRE 2 1000
             LAF 1  500 LAF 2 1000
  [PITT,*,*] FRA 1 1000 DET 1 1000 LAN 1 1000 WIN 1 1000
             FRE 1 1000 ;