1b3
@verb #1247:"find_min_path" this none this rxdo #8219
@program #1247:"find_min_path" this none this
if (length(args[1]) < 1)
  return {}
endif
len = $maxint
idx = E_INVARG
for i in [1..length(args[1])]
  if (length(args[1][i]) < len)
    len = length(args[1][i])
    idx = i
  endif
  $command_utils:suspend_if_needed(0)
endfor
return args[1][idx]
"Last modified by Avenger (#8219) on Mon Sep  9 22:38:57 2002 MDT."
.

0