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