;read file
(define web (read-file "/tmp/finviz_quote_syf.html"))
(print "file read")

; remove head section
(define pos (string-find web "<body" 0))
(define web2 (string-substr web pos 1000000))

; remove scripts
(define web3 (string-replace web2 "<script(.*?)>((.|\r?\n)*?)</script>" ""))

; extract tables

(print web3)