@verb #7113:"@props" any none none rdo #7113
@program #7113:"@props" any none none
object = this:my_match_object(dobjstr)
if (object == #-3)
  player:tell(E_INVARG)
  return
endif
props = properties(object)
props2 = #7113:process_l(props)
player:tell("Properties on " + object:title() + ": " + props2)
.