import HQuant.FetchQuote
import Data.Time
import Data.Time.Clock
import System.Environment 
import qualified Finance.Quote.Yahoo as Yahoo

start :: Day
start = fromGregorian 2010 1 1 :: Day

main :: IO ()
main = do
  a <- getArgs
  let sym = head a
  hh <- loadYahoo sym start
  writeHistory sym hh