201
@verb #1112:"deplural" this none this rxdo #7788
@program #1112:"deplural" this none this
what = args[1]
what = strsub(what, "feet", "foot")
if (index(what, "/"))
  if (!index(what, "foot") || what[index(what, "/") - 2] == "s")
    return what[1..index(what, "/") - 3] + " " + what[index(what, "/")..$]
  endif
  return what
endif
if (what[$] == "s")
  if (what[$ - 1] == "e" && length(what[1..$ - 2]) > 3)
    return what[1..$ - 2]
  else
    return what[1..$ - 1]
  endif
endif
return what
.

0