6 lines
180 B
Racket
6 lines
180 B
Racket
|
#lang racket
|
||
|
|
(require net/url)
|
||
|
|
(copy-port (get-pure-port (string->url "http://www.rosettacode.org")
|
||
|
|
#:redirections 100)
|
||
|
|
(current-output-port))
|