-- include
-- read raw text from a file
(getmetatable "").__call = string.format
local err = "Cannot read %s"
local INCLUDE = \ (file)
      local f = io.open (file, "r")
      local s = assert (f:read "*all", err (file))
      f:close ( )
      => s
      end -- function
=> { INCLUDE = INCLUDE }