evaluate points = do
  start <- getCurrentTime
  grahamScan points `deepseq` return ()
  end <- getCurrentTime
  hPutStrLn stderr . show $ diffUTCTime end start
evaluate points = do
  start <- getCurrentTime
  grahamScan points `deepseq` return ()
  end <- getCurrentTime
  hPutStrLn stderr . show $ diffUTCTime end start
evaluate points = do
  start <- getCurrentTime
  grahamScan points `deepseq` return ()
  end <- getCurrentTime
  hPutStrLn stderr . show $ diffUTCTime end start