Evaluated proc qrcode args { if {[string bytelength $args] > 140} { set w 160 } { set w 140}; jpg get "https://chart.googleapis.com/chart?cht=qr&chs=547x547&chl=[urlencode $args]&ok=.png"; string map {@ { } O { } o { } . { } 14 1 15 0} [jpg cum $w]}