##gets:runsub whattodo;
##use:runsub useme;

##Whattodo:
if $actor eq $target then popme else notme;

##popme:
say 'act',"[$actor] pops";

##notme:
var $how to (slowly,quickly,puzzingly);

say 'act',"[$actor] $how wonders why [$init_obj] is getting [$target]";

##useme:
if $actor eq $target then usingme else end;

##usingme:
say 'act',"[$init_obj] wonders why they did that";