printLPSolution loadPattern = do
  x <- glpSolveVars mipDefaults (lp loadPattern)
  putStrLn (show (allVariables loadPattern))
  case x of (Success, Just (obj,vars)) -> do
                          putStrLn "Success!"
                          putStrLn ("Cost: " ++ (show obj))
                          putStrLn ("Variables: " ++ (show vars))
            (failure, result) -> putStrLn ("Failure: " ++ (show failure))
printLPSolution loadPattern = do
  x <- glpSolveVars mipDefaults (lp loadPattern)
  putStrLn (show (allVariables loadPattern))
  case x of (Success, Just (obj,vars)) -> do
                          putStrLn "Success!"
                          putStrLn ("Cost: " ++ (show obj))
                          putStrLn ("Variables: " ++ (show vars))
            (failure, result) -> putStrLn ("Failure: " ++ (show failure))
printLPSolution loadPattern = do
  x <- glpSolveVars mipDefaults (lp loadPattern)
  putStrLn (show (allVariables loadPattern))
  case x of (Success, Just (obj,vars)) -> do
                          putStrLn "Success!"
                          putStrLn ("Cost: " ++ (show obj))
                          putStrLn ("Variables: " ++ (show vars))
            (failure, result) -> putStrLn ("Failure: " ++ (show failure))