-- return ()

main'' :: IO ()
main'' = do
  str <- readFile "resultfinal.txt"
  -- print (lines str) 
  let rf = read :: String -> (Int,Int,Int,Int,Int,[(Double,Int)])
   
  print $ lines str !! 1
  print $  rf (lines str !! 1)
  
  let rs = map rf . take 10 $ lines str
  print (combine2 rs)
main'' :: IO ()
main'' = do
  str <- readFile "resultfinal.txt"
  -- print (lines str) 
  let rf = read :: String -> (Int,Int,Int,Int,Int,[(Double,Int)])
   
  print $ lines str !! 1
  print $  rf (lines str !! 1)
  
  let rs = map rf . take 10 $ lines str
  print (combine2 rs)
main'' = do
  str <- readFile "resultfinal.txt"
  -- print (lines str) 
  let rf = read :: String -> (Int,Int,Int,Int,Int,[(Double,Int)])
   
  print $ lines str !! 1
  print $  rf (lines str !! 1)
  
  let rs = map rf . take 10 $ lines str
  print (combine2 rs)