main = do
  withFile "myresultqcd.dat" WriteMode $ \h -> do
    mapM_ (readxsec h) [350,360..850]
main = do
  withFile "myresultqcd.dat" WriteMode $ \h -> do
    mapM_ (readxsec h) [350,360..850]
main = do
  withFile "myresultqcd.dat" WriteMode $ \h -> do
    mapM_ (readxsec h) [350,360..850]