@verb #649:"can_order_me" this none this rxdo #833
@program #649:"can_order_me" this none this
who = args[1]
if (!valid(who))
  return 0
endif
if ($object_utils:isa(who, #649))
  return 1
endif
fork (1)
  this:say("Who do you think you are?")
  this:nail(who)
endfork
return 0
.