Splitting the universe to choose a drink

qdrink.lisp

(ql:quickload :jsown)
(ql:quickload :dexador)
(ql:quickload :quri)

(if (evenp
     (sxhash
      (car (jsown:val
            (jsown:parse
             (dex:get
              (quri:make-uri
               :defaults "https://qrng.anu.edu.au/API/jsonI.php"
               :query '(("type" . "uint8") ("length" . 1)))))
            "data"))))
    :coffee
    :tea)