worksets = [ (mgl,msq,50000,50000, 10000) | mgl <- [800], msq <- [500,600,700,800, 1300,1400,1500,1600] ]
worksets = [ (mgl,msq,50000,50000, 10000) | mgl <- [800], msq <- [500,600,700,800, 1300,1400,1500,1600] ]
worksets = [ (mgl,msq,50000,50000, 10000) | mgl <- [800], msq <- [500,600,700,800, 1300,1400,1500,1600] ]