Evaluated proc semen {url {width 80}} { jpg get $url; jpg cum $width }