Evaluated proc jpaste {url {width 80}} {paste [jpeg $url $width]}