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

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