(import http-client (chicken io)
	(chicken port)
	iconv)

(define *desc*
  (make-iconv "WINDOWS-1254" "UTF-8"))

(define (test-iconv)
  (let ([body (with-input-from-request "http://www.koeri.boun.edu.tr/scripts/lst9.asp" #f read-string)])
    (print (*desc* body))))