@verb #4514:"match_grave" this none this rxdo #9799
@program #4514:"match_grave" this none this
if (args[1] == "")
  if (args[2] == "")
    return 0
  endif
  look = args[2]
else
  look = args[1]
endif
if (length(look) < length("gravestone") && "gravestone"[1..length(look)] == look)
  return 1
endif
for grave in (this:list_graves())
  if (`grave[1..length(look)] == look ! E_RANGE => 0' || `tostr(grave, "'s gravestone")[1..length(look)] == look ! E_RANGE => 0' || `tostr(grave, " gravestone")[1..length(look)] == look ! E_RANGE => 0')
    return grave
  endif
endfor
return 0
"Last modified by Dax (#789) on Mon Jul 22 10:40:39 2002 MDT."
.