USING: formatting http.client sequences strings kernel io math regexp unicode.case assocs ; IN: currency : coins ( -- array ) { "TWD" "CNY" "JPY" "KRW" "HKD" "THB" "SGD" "IDR" "VND" "MYR" "PHP" "INR" "AED" "KWD" "AUD" "NZD" "USD" "CAD" "BRL" "MXN" "ARS" "CLP" "VEB" "EUR" "GBP" "RUB" "CHF" "SEK" "ZAR" } ; : coins? ( coin -- ? ) coins member? ; : calias ( -- hashtable ) H{ { "NTD" "TWD" } { "RMB" "CNY" } } ; : calias? ( alias -- ? ) calias keys member? ; : calias-at ( alias -- value/? ) dup calias? [ calias at ] [ drop f ] if ; : yahootw-url ( -- url ) "http://tw.money.yahoo.com/currency_exc_result?amt=%d&from=%s&to=%s" ; : div-tag ( -- text ) "