#!/usr/bin/lua

-- SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
-- For more information, please refer to <https://unlicense.org/>
-- SPDX-License-Identifier: Unlicense

-- Implements an automaton by Elliott Hird.
-- Not sure what it was supposed to do...

m = {}
x = 0
while 1 do
  m[m[0] or 0] = x
  x = m[(m[0] or 0) + 1]
  m[0] = x
end