Evaluated proc qr url {shrink [regsub -all "(\u2588| )" [string map {W █ , { }} [img2asc http://delivr.com/qrcodegen/img?bg=FFFFFF&border=4&code=2yh73&fg=000000&format=JPG&mode=download&param2=[urlencode $url]&scale=3&secure=1]] "\\1\\1"]}