function luash(si)
s("lua shell",function()
 if _OSVERSION and _BD then
  write(_OSVERSION.." on "..nID.." (built at ".._BD..")\t")
 end
 print(tostring(computer.freeMemory()/1024).."K free.",_G.motd)
 print(_VERSION)
 while true do
  write("> ")
  print(pcall(load(readln())))
 end
end,si)
end