Google Translation APIを使って翻訳

Code:
{define-proc public {translate

                        version:int = 2,

                        key:String,

                        source:String,

                        source-locale:Locale,

                        target-locale:Locale

                    }:String

    def site = 

        {format

            "https://www.googleapis.com/language/translate/v%i",

            version

        }

    def params = 

        {format 

            "key=%s&q=%s&source=%s&target=%s",

            key,

            {url-encode-string source},

            source-locale.name,

            target-locale.name

        }

    def target-url = {format "%s?%s", site, params}

    {with-open-streams

        tis = {read-open {url target-url}}

     do

        def json-val = {JsonValue-parse tis}

        {return

            || TODO: HTML decode

            {url-decode-string 

                json-val["data"]["translations"][0]["translatedText"]

            }

        }

    }

}