diff --git a/stead/dbg.lua b/stead/dbg.lua
index 7c438be..6d54cd4 100644
--- a/stead/dbg.lua
+++ b/stead/dbg.lua
@@ -25,21 +25,21 @@ dump_obj = function(w)
 	local rc=''
 	for i,o in pairs(w) do
 		if rc ~='' then rc = rc..'^' end
-		rc = cat(rc, par(' ', 'Key:'..tostring(i),
+		rc = stead.cat(rc, stead.par(' ', 'Key:'..tostring(i),
 			'Val:'..tostring(deref(o))));
 	end
-	seen('disp')._txt = cat('^^', rc)
+	seen('disp')._txt = stead.cat('^^', rc)
 	return true;
 end
 
 list_objects = function()
 	local i,o
-	local rc = par(' ', 'Room:'..tostring(deref(from())), 
+	local rc = stead.par(' ', 'Room:'..tostring(deref(from())), 
 			'Nam:'..tostring(call(from(),'nam')));
 	for i,o in opairs(objs(from())) do
 		rc = rc..'^';
 		o = ref(o)
-		rc = cat(rc, par(' ', 'Id:'..tostring(o.id), 
+		rc = stead.cat(rc, stead.par(' ', 'Id:'..tostring(o.id), 
 			'Obj:'..tostring(deref(o)), 
 			'Nam:'..tostring(call(o, 'nam')), 
 			'Disabled:'..tostring(isDisabled(o))));
@@ -54,7 +54,7 @@ list_inv = function()
 	for i,o in opairs(inv()) do
 		if rc ~='' then rc = rc..'^' end
 		o = ref(o)
-		rc = cat(rc, par(' ', 'Id:'..tostring(o.id), 'Obj:'..tostring(deref(o)), 
+		rc = stead.cat(rc, stead.par(' ', 'Id:'..tostring(o.id), 'Obj:'..tostring(deref(o)), 
 			'Nam:'..tostring(call(o, 'nam')), 
 			'Disabled:'..tostring(isDisabled(o)), 
 			'Taken:'..tostring(taken(o))));
@@ -73,7 +73,7 @@ execute_cmd = room {
 		if type(s.obj[1]._txt) == 'string' then
 			local f = loadstring(s.obj[1]._txt);
 			if f then
-				seen('disp')._txt = cat('^^', f());
+				seen('disp')._txt = stead.cat('^^', f());
 				return true
 			end
 			seen('disp')._txt = "^^Error in exec.";
@@ -206,7 +206,7 @@ debug_tool = menu {
 	inv = function(s)
 		debug_dlg.__from__ = deref(here());
 		me().where = 'debug_dlg'; -- force to go
-		local r = par('^^', call(debug_dlg, 'enter'), call(debug_dlg, 'dsc'));
+		local r = stead.par('^^', call(debug_dlg, 'enter'), call(debug_dlg, 'dsc'));
 		return r;
 	end,
 };
diff --git a/stead/gui.lua b/stead/gui.lua
index b7f5082..9af32c6 100644
--- a/stead/gui.lua
+++ b/stead/gui.lua
@@ -16,7 +16,7 @@ iface.xref = function(self, str, obj)
 	elseif isSceneUse(o) then
 		cmd = 'use ';	
 	end
-	return cat('<a:'..cmd..'0'..tostring(o.id)..'>',str,'</a>');
+	return stead.cat('<a:'..cmd..'0'..tostring(o.id)..'>',str,'</a>');
 end;
 
 iface.enum = function(self, n, str)
@@ -41,32 +41,32 @@ end;
 
 iface.under = function(self, str)
 	if str == nil then return nil; end; 
-	return cat('<u>',str,'</u>');
+	return stead.cat('<u>',str,'</u>');
 end;
 
 iface.em = function(self, str)
 	if str == nil then return nil; end;
-	return cat('<i>',str,'</i>');
+	return stead.cat('<i>',str,'</i>');
 end;
 
 iface.right = function(self, str)
 	if str == nil then return nil; end; 
-	return cat('<r>',str,'</r>');
+	return stead.cat('<r>',str,'</r>');
 end;
 
 iface.left = function(self, str)
 	if str == nil then return nil; end;
-	return cat('<l>',str,'</l>');
+	return stead.cat('<l>',str,'</l>');
 end;
 
 iface.center = function(self, str)
 	if str == nil then return nil; end;
-	return cat('<c>',str,'</c>');
+	return stead.cat('<c>',str,'</c>');
 end;
 
 iface.bold = function(self, str)
 	if str == nil then return nil; end;
-	return cat('<b>',str,'</b>');
+	return stead.cat('<b>',str,'</b>');
 end;
 
 iface.inv = function(self, str)
@@ -159,7 +159,7 @@ function isMenu(v)
 	return false
 end
 
-stead.fmt = function(...)
+fmt = function(...)
 	local i, res
 	if arg == nil then
 		return false
@@ -167,8 +167,10 @@ stead.fmt = function(...)
 	for i=1,stead.table.maxn(arg) do
 		if type(arg[i]) == 'string' then
 			local s = stead.string.gsub(arg[i],'\t',' '):gsub('[\n]+', ' '):gsub('%^','\n');
- 			res = par('', res, s);
+ 			res = stead.par('', res, s);
 		end
 	end
 	return res
 end
+
+stead.fmt = fmt
diff --git a/stead/stead.lua b/stead/stead.lua
index 10997fc..6693d48 100644
--- a/stead/stead.lua
+++ b/stead/stead.lua
@@ -96,21 +96,21 @@ end
 function p(...)
 	local i
 	for i = 1, stead.table.maxn(arg) do
-		cctx().txt = par('',cctx().txt, arg[i]);
+		cctx().txt = stead.par('',cctx().txt, arg[i]);
 	end
-	cctx().txt = cat(cctx().txt, ' ');
+	cctx().txt = stead.cat(cctx().txt, ' ');
 end
 
 function pr(...)
 	local i
 	for i = 1, stead.table.maxn(arg) do
-		cctx().txt = par('',cctx().txt, arg[i]);
+		cctx().txt = stead.par('',cctx().txt, arg[i]);
 	end
 end
 
 function pn(...)
 	p(unpack(arg));
-	cctx().txt = par('',cctx().txt,'^');
+	cctx().txt = stead.par('',cctx().txt,'^');
 end
 
 -- merge strings with "space" as separator
@@ -128,7 +128,7 @@ function par(space,...)
 	end
 	return res;
 end
-
+stead.par = par
 -- add to not nill string any string
 function cat(v,...)
 	local i, res
@@ -143,6 +143,7 @@ function cat(v,...)
 	end
 	return res;
 end
+stead.cat = cat;
 
 function txtnb(v)
 	if type(v) ~= 'string' then return nil; end
@@ -189,7 +190,7 @@ function txtnm(n, v)
 	return iface:enum(n, v);
 end
 
-stead.fmt = function(...)
+fmt = function(...)
 	local i, res
 	if arg == nil then
 		return false
@@ -199,11 +200,13 @@ stead.fmt = function(...)
 			local s = stead.string.gsub(arg[i],'[\t ]+',' ');
 			s = stead.string.gsub(s, '[\n]+', ' ');
 			s = stead.string.gsub(s,'%^','\n');
- 			res = par('',res,s);
+ 			res = stead.par('',res,s);
 		end
 	end
 	return res
 end
+stead.fmt = fmt
+
 -- integer lists
 function inext(t, k)
 	local v
@@ -310,7 +313,7 @@ function obj_look(self)
 		o = ref(o);
 		if isObject(o) then
 			vv = obj_look(o);
-			v = par(' ',v, vv); 
+			v = stead.par(' ',v, vv); 
 		end
 	end
 	return v;
@@ -380,7 +383,7 @@ function obj_str(self)
 		if o~= nil and not isDisabled(o) then -- isObject is better, but compat layer must be ok
 			vv = call(o, 'nam');
 			vv = xref(vv, o);
-			v = par(',', v, vv, obj_str(o));
+			v = stead.par(',', v, vv, obj_str(o));
 		end
 	end
 	return v;
@@ -480,7 +483,7 @@ function list_str(self)
 		if o~= nil and not isDisabled(o) then
 			vv = call(o, 'nam');
 			vv = xref(vv, o);
-			v = par(',', v, vv);
+			v = stead.par(',', v, vv);
 		end
 	end
 	return v;
@@ -685,8 +688,8 @@ end
 function room_scene(self)
 	local v;
 	v = iface:title(call(self,'nam'));
-	v = par('^^', v, call(self,'dsc')); --obj_look(self));
-	return cat(v,' ');
+	v = stead.par('^^', v, call(self,'dsc')); --obj_look(self));
+	return stead.cat(v,' ');
 end
 
 function room_look(self)
@@ -694,10 +697,10 @@ function room_look(self)
 	for i,o in opairs(self.obj) do
 		o = ref(o);
 		if isObject(o) then
-			vv = par(' ',vv, o:look());
+			vv = stead.par(' ',vv, o:look());
 		end
 	end
-	return cat(vv,' ');
+	return stead.cat(vv,' ');
 end
 
 function obj_search(v, n, dis)
@@ -762,7 +765,7 @@ end
 function dialog_scene(self)
 	local v
 	v = iface:title(call(self,'nam'));
-	v = par('^^', v, call(self, 'dsc')); --obj_look(self));
+	v = stead.par('^^', v, call(self, 'dsc')); --obj_look(self));
 	return v;
 end
 
@@ -772,7 +775,7 @@ function dialog_look(self)
 	for i,ph in opairs(self.obj) do
 		ph = ref(ph);
 		if isPhrase(ph) and not isDisabled(ph) then
-			v = par('^', v, txtnm(n, ph:look()));
+			v = stead.par('^', v, txtnm(n, ph:look()));
 			n = n + 1
 		end
 	end
@@ -896,10 +899,10 @@ function phrase_action(self)
 		r = true;
 	end
 	if isDialog(here()) and not dialog_rescan(here()) then
-		ret = par(' ', ret, me():back());
+		ret = stead.par(' ', ret, me():back());
 	end
 	
-	ret = par("^^", last, ret);
+	ret = stead.par("^^", last, ret);
 	
 	if ret == nil then
 		return r -- hack?
@@ -955,15 +958,15 @@ function phr(ask, answ, act)
 end
 
 function player_inv(self)
-	return iface:inv(cat(self:str()));
+	return iface:inv(stead.cat(self:str()));
 end
 
 function player_ways(self)
-	return iface:ways(cat(ref(self.where).way:str()));
+	return iface:ways(stead.cat(ref(self.where).way:str()));
 end
 
 function player_objs(self)
-	return iface:objs(cat(ref(self.where):str()));
+	return iface:objs(stead.cat(ref(self.where):str()));
 end
 
 function player_look(self)
@@ -1072,7 +1075,7 @@ function player_use(self, what, onwhat)
 	if not v and not vv then
 		v, r = call(game, 'use', obj, obj2);
 	end
-	return par(' ', v, vv);
+	return stead.par(' ', v, vv);
 end
 
 function player_back(self)
@@ -1134,7 +1137,7 @@ function go(self, where, back)
 			need_scene = false;
 		end
 	end
-	res = par('^^',res,v);
+	res = stead.par('^^',res,v);
 
 	if not back then
 		ref(where).__from__ = deref(self.where);
@@ -1151,18 +1154,18 @@ function go(self, where, back)
 		stead.in_onexit_call = true
 		v = call(ref(was), 'left', deref(to));
 		stead.in_onexit_call = false
-		res = par('^^',res,v);
+		res = stead.par('^^',res,v);
 
 		self.where = deref(to)
 
 		stead.in_entered_call = true
 		v = call(ref(to), 'entered', deref(was));
 		stead.in_entered_call = false
-		res = par('^^',res,v);
+		res = stead.par('^^',res,v);
 	end
 
 	if need_scene then -- or isForcedsc(ref(where)) then -- i'am not sure...
-		return par('^^',res,ref(where):scene());
+		return stead.par('^^',res,ref(where):scene());
 	end
 	return res;
 end
@@ -1243,9 +1246,9 @@ function game_life(self)
 		if not isDisabled(o) then
 			vv,pre = call(o,'life');
 			if not pre then
-				v = par(' ',v, vv);
+				v = stead.par(' ',v, vv);
 			else
-				av = par(' ', av, vv);
+				av = stead.par(' ', av, vv);
 			end
 		end
 	end	
@@ -1302,7 +1305,7 @@ function do_ini(self)
 		o.key_name = k;
 	end
 	local function call_ini(k, o)
-		v = par('', v, call(o, 'ini'));
+		v = stead.par('', v, call(o, 'ini'));
 	end
 
 	math.randomseed(tonumber(os.date("%m%d%H%M%S")))
@@ -1322,21 +1325,21 @@ function do_ini(self)
 	if not self.showlast then
 		self._lastdisp = nil;
 	end
-	return par('',v, self._lastdisp); --par('^^',v);
+	return stead.par('',v, self._lastdisp); --stead.par('^^',v);
 end
 
 function game_ini(self)
 	local v,vv
 	v = do_ini(self);
 	vv = iface:title(call(self,'nam'));
-	vv = par('^^', vv, call(self,'dsc'));
+	vv = stead.par('^^', vv, call(self,'dsc'));
 	if type(init) == 'function' then
 		init();
 	end
 --	if type(hooks) == 'function' then
 --		hooks();
 --	end
-	return par("^^", vv, v);
+	return stead.par("^^", vv, v);
 end
 
 function game(v)
@@ -1630,7 +1633,7 @@ iface = {
 		if not o or not o.id then
 			return str;
 		end
-		return cat(str,"("..tostring(o.id)..")");
+		return stead.cat(str,"("..tostring(o.id)..")");
 	end,
 	title = function(self, str)
 		return "["..str.."]";
@@ -1661,7 +1664,7 @@ iface = {
 				end
 			end
 		end
-		vv = stead.fmt(cat(par("^^", l, r, av, objs, pv), '^'));
+		vv = stead.fmt(stead.cat(stead.par("^^", l, r, av, objs, pv), '^'));
 		return vv
 	end,
 	cmd = function(self, inp)
@@ -1685,7 +1688,7 @@ iface = {
 		elseif cmd == 'way' then
 			r,v = me():ways();
 		elseif cmd == 'ls' then
-			r = par('^^', me():objs(), me():inv(), me():ways());
+			r = stead.par('^^', me():objs(), me():inv(), me():ways());
 			v = nil;
 		elseif cmd == 'go' then
 			r,v = me():go(unpack(a));
@@ -1726,7 +1729,7 @@ iface = {
 		end
 
 		if v == false then
-			return cat(r, '\n'), false;
+			return stead.cat(r, '\n'), false;
 		end
 		
 		ACTION_TEXT = r; -- here, life methods can redefine this