(define-method (btc-ticker* currency money ticker)
  "https://data.mtgox.com/api/2"
  #f
  read-json)

(define btc-ticker (cut btc-ticker* <> "money" "ticker"))