! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
+! See https://factorcode.org/license.txt for BSD license
USING: accessors colors formatting http http.client images.gif
images.http io io.styles kernel namespaces sequences splitting
: query ( query -- xml )
url-encode wolfram-api-id get-global
- "http://api.wolframalpha.com/v2/query?input=%s&appid=%s"
+ "https://api.wolframalpha.com/v2/query?input=%s&appid=%s"
sprintf http-get nip string>xml
dup "error" tag-named [
"msg" tag-named children>string throw