xpected = actual
    end
    results[index] = expected
  end
  
  local serializer = Viewer{
    output = assert(io.open(file, "w")),
    maxdepth = -1,
  }
  serializer.output:write("return ")
  serializer:write(results)
end



local oo         = require "loop.base"
local Expression = require "loop.compiler.Expression"

List   = oo.class()
Label  = oo.class()
Lambda = oo.class()
Apply  = oo.class()

parser = Expression{
  values = {
    number = "(%-?%d+)",
    variable = "([%a_][%w_]*)",
  },
  operators 