-- (find-angg "LFORTH/outer-mini.lua")
-- (find-angg "LFORTH/inner-mini.lua")

-- (find-angg "LUA/lua50init.lua" "P")
-- «P»  (to ".P")
P = function (...)
  foreachi(arg, function (i, v)
      if type(v)=="number" then printf(" %d", v)
      elseif type(v)=="string" then printf(" %q", v)
      else printf(" <%s>", type(v))
      end
    end)
  print()
end

-- «tests»  (to ".tests")
-- P(1, 3)
-- P(string.find("0123456789", "3(45)(67)", 4))
-- P(string.find("0123456789", "3(45)(67)", 5))

DBG = 1