get $target in $Loc;
if $target > 0 then shuntit else fail;
##shuntit:
clear $target,all;
set $target's loc to 2;
say 'say',"[$actor] shunted [$target] to the lost property box";
rem look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

##fail:
say 'fail',"[$actor] could not shunt $cmd_text";