let seconds = 5
  hPutStrLn stderr $ "Waiting for " ++ show seconds ++  " seconds for " ++ domain
  threadDelay (seconds * 1000000)

      hPutStrLn stderr $ "Waiting for 2 seconds for " ++ domain
      threadDelay (2 * 1000000)