gcc -c liba.so.c -D__asm_rep_movsd_memcpy=memcpy -fPIC
ld liba.so.o -lc -shared -o liba.so

LD_LIBRARY_PATH=`pwd`/alpine-minirootfs-3.8.1-x86/usr/lib:`pwd`/alpine-minirootfs-3.8.1-x86/lib /lib/ld-linux.so.2 ./alpine-minirootfs-3.8.1-x86/usr/bin/lua5.1

class Stack
  def initialize(stack = [])
    @fifo = stack
  end
  def ld(o); @fifo << o; end
  def pop; @fifo.pop; end
  def peek; @fifo.last; end
  def size; @fifo.size; end
  def to_s; @fifo.to_s; end
  def eql?(o); @fifo.eql?(o); end
  def <<(o); ld o; end
end

def Stack.mk_binary_op(name, &operator)
  define_method(name) do
    op2 = pop; op1 = pop
    ld operator.call(op1, op2)
  end
end

class Stack
  mk_binary_op :sub, &:-
  mk_binary_op :add, &:+
  mk_binary_op :mul, &:*
  mk_binary_op :div, &:/
  mk_binary_op :bitwise_or, &:|
end