Evaluated proc jpegm {url {step 5}} { jpg get $url; jpegmaxsize 70 120 $step}