import HQuant.FetchQuote
import HQuant.History
import HQuant.LoadHistory
import HQuant.Technical
import Graphics.Gnuplot.Time
import Data.Time.LocalTime
import Data.Time
import Data.Maybe (fromJust)
import System.Locale (defaultTimeLocale)
import Data.Time.Clock

main :: IO ()
main = do
 hh <- readHistory s
 mapM print $ prepXTime5 $map (dayToUtc . historyToTuple) hh
 graph s $ prepXTime5 $map (dayToUtc . historyToTuple) hh
 return ()
  where
    s="SPY"