##push:runsub isitme;
##isitme:if $actor eq $target then dropit else end;
##dropit:
new a leaf worth 5;
say 'msg',"[$init_obj] shook [$new_id] from [$actor]";