#lang racket

(require net/url)

(displayln "Can it do https?")

(copy-port 
 (get-impure-port (string->url "https://127.0.0.1:8080"))
 (current-output-port))

(displayln "")

(displayln "Can it do http?")
(copy-port 
 (get-impure-port (string->url "http://127.0.0.1:8080"))
 (current-output-port))