local m8n="C:/m8n/"
dofile(m8n.."s8.snapshot.lua")
print(("'3+4=',(3+4)"):evaluate())
--print(smalltalk.Object:selectors():sorted():asLiteral())

dofile(m8n.."s8/library/luasocket.st.lua")
dofile(m8n.."s8/library/SimpleHTTPServer.st.lua")
dofile(m8n.."s8/library/SimpleJson.st.lua")
dofile(m8n.."s8/library/systemServer/SystemServer.st.lua")
dofile(m8n.."s8/library/swiki/swiki.st.lua")
dofile(m8n.."s8/library/swiki/swikiLove.st.lua")
dofile(m8n.."library/love/love.st.lua")
dofile(m8n.."library/love/loveSamples.st.lua")

smalltalk.Sample = "loaded"
code=[[
  SystemServer silent: true.
  SystemServer start.
  Sample := #started.
]]
code:fileIn()

x=0
function love.draw()
	smalltalk.SystemServer:current():step()
	x = x + 8
	love.graphics.print(tostring(smalltalk.Sample), x, 300)
	if x>800 then x=0 end
end