Get username from http://graph.facebook.com/<id>

get-username.rkt

;; Playing with racket

(require net/url)
(require json)
(require rnrs/io/ports-6)

(define link "http://graph.facebook.com/")
(define (get-username id)
  (let ((ht (call-with-port (get-pure-port (string->url (string-append link id)))
                              (lambda (p)
                                (read-json p)))))
    (hash-ref ht 'username)))

(get-username "4")