(use openssl utils)

(print (receive (in out) (ssl-connect "raw.github.com" 443)
         (display "GET /mario-goulart/selenium/master/selenium.release-info HTTP/1.1\r\n" out)
         (display "Host: raw.github.com\r\n" out)
         (display "\r\n" out)
         (close-output-port out)
         (let ((res (read-file in)))
           ;(peek-char in)
           (close-input-port in)
           res)))