##wish: runsub whattodo;

##whattodo:
var $objname to "spiderman";
find 1 or loc > 1) and (code <> '', $objname;
say 'msg',"[$actor] found [$found_id] in [$found_loc]";

##rem: - same without specific query on a coded obj..
find 1 or loc > 1), spiderman;