$k(2)
$pict[^image::load[019paf2001.gif]]
$small[^image::create($pict.width/$k;$pict.height/$k)]
^small.copy[$pict](0;0;$pict.width;$pict.height;0;0;$small.width;$small.height;500)
$response:body[^small.gif[]]