#lang scheme

(require "main.ss")
(require "parse.ss")

(require net/url)

(define-values (code headers) (head (string->url "http://www.google.com/")))
(display "***\n")
(display code)
(display "\n")
(for-each-raw-header
 headers
 (λ (name raw)
   (display (format "~a ... ~s~n" name raw))))
(display "***\n")

(define-values (cod s-headers s) (get-string (string->url "http://whatismyip.org")))
(display cod)
(display "\n^^^\n")
(display "\n*** >>")(write s)(display "<<\n")

(download (string->url "http://farm1.static.flickr.com/41/83853074_e0b4beee8c_b.jpg") "ferret-tissue.jpg")
(download (string->url "http://i206.photobucket.com/albums/bb120/Xtinaisawesome/Mew_and_Eevee_by_Kidura.jpg") "Mew_and_Eevee_by_Kidura.jpg")