local X = {}

function len(t)
  local i = 1
  while t[i] ~= nil do i = i + 1 end
  return i - 1
end
X.len = len

function tostr(x)
  if type(x) == "boolean" then
    if x then x = "true" else x = "false" end
  elseif type(x) == "number" or type(x) == "string" then
    x = tostring(x)
  else
    x = type(x)
  end
  return x
end
X.tostr = tostr

function keysvals(t)
  local i = 1
  local ks = {}
  local vs = {}
  for k,v in pairs(t) do
    ks[i] = k; vs[i] = v; i = i + 1
  end
  return ks,vs
end
X.keysvals = keysvals

function tprint(t)
  local i = 1
  local ks
  local vs
  local v
  ks,vs = keysvals(t)
  while ks[i] ~= nil do
    v = tostr(vs[i])
    print(ks[i].." ; "..v)
	i = i + 1
  end
end
X.tprint = tprint

function aprint(a)
  local i, j, s
  i = 1
  while a[i] ~= nil do
    s = tostr(a[i][1])
    j = 2
    while a[i][j] ~= nil do
      s = s.." ; "..tostr(a[i][j])
      j = j + 1
    end
    print(s)
    i = i + 1
  end
end
X.aprint = aprint

return X