--- a/util/session.lua	Tue Nov 24 19:00:43 2015 +0100
+++ b/util/session.lua	Tue Nov 24 19:09:51 2015 +0100
@@ -6,6 +6,13 @@
 	return session;
 end
 
+local function set_id(session)
+	local id = typ .. tostring(session):match("%x+$"):lower();
+	session.id = id;
+	return session;
+end
+
 return {
 	new = new_session;
+	set_id = set_id;
 }