readxsec :: Handle -> Double -> IO ()
readxsec h sqrts = do
  ws1 <- getWSetup (sqrts,1)
  let rname = makeRunName (ws_psetup ws1) (ws_param ws1) (ws_rsetup ws1)
  let pkey = "/afs/cern.ch/work/i/ikim/private/webdav/priv.txt"
      pswd = "/afs/cern.ch/work/i/ikim/private/webdav/cred.txt"
  Just cr <- getCredential pkey pswd
  let whost = "http://top.physics.lsa.umich.edu:10080/webdav/"
      wdavcfg = WebDAVConfig cr whost
      wdavrdir = WebDAVRemoteDir "montecarlo/HeavyHiggs/interfere_test"
  mr <- xsec XSecLHE wdavcfg wdavrdir rname
  F.forM_ mr $ \r -> do
    print (sqrts,r)
    hPutStrLn h (show sqrts ++ " " ++ show r)
readxsec :: Handle -> Double -> IO ()
readxsec h sqrts = do
  ws1 <- getWSetup (sqrts,1)
  let rname = makeRunName (ws_psetup ws1) (ws_param ws1) (ws_rsetup ws1)
  let pkey = "/afs/cern.ch/work/i/ikim/private/webdav/priv.txt"
      pswd = "/afs/cern.ch/work/i/ikim/private/webdav/cred.txt"
  Just cr <- getCredential pkey pswd
  let whost = "http://top.physics.lsa.umich.edu:10080/webdav/"
      wdavcfg = WebDAVConfig cr whost
      wdavrdir = WebDAVRemoteDir "montecarlo/HeavyHiggs/interfere_test"
  mr <- xsec XSecLHE wdavcfg wdavrdir rname
  F.forM_ mr $ \r -> do
    print (sqrts,r)
    hPutStrLn h (show sqrts ++ " " ++ show r)
readxsec h sqrts = do
  ws1 <- getWSetup (sqrts,1)
  let rname = makeRunName (ws_psetup ws1) (ws_param ws1) (ws_rsetup ws1)
  let pkey = "/afs/cern.ch/work/i/ikim/private/webdav/priv.txt"
      pswd = "/afs/cern.ch/work/i/ikim/private/webdav/cred.txt"
  Just cr <- getCredential pkey pswd
  let whost = "http://top.physics.lsa.umich.edu:10080/webdav/"
      wdavcfg = WebDAVConfig cr whost
      wdavrdir = WebDAVRemoteDir "montecarlo/HeavyHiggs/interfere_test"
  mr <- xsec XSecLHE wdavcfg wdavrdir rname
  F.forM_ mr $ \r -> do
    print (sqrts,r)
    hPutStrLn h (show sqrts ++ " " ++ show r)