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

section .rodata
fmt db `%s %i\n`, 0x0

section .data
msg db "Hello, world!", 0x0

section .text

extern printf

global _start
global main
global print

_start:
        mov ebp, esp

        ; arguments to main:
        ; _start(int argc, char **argv)
        call main

        ; exit(eax)
        mov ebx, eax
        mov eax, 1
        int 0x80

print:
        push ebp
        mov ebp, esp

        mov ecx, 100
        add ecx, 1
        push ecx
        push msg
        push fmt
        call printf

        ; clean-up for `printf' call   
        ; increase stack pointer by argument size
        ; to simply ignore them
        ; sizeof(int) + sizeof(char *) * 2
        add esp, 12 

        leave
        ret

main:
        push ebp
        mov ebp, esp

        call print

        xor eax, eax
        leave 
        ret  

  mov ebx, 100
  mov edi, 0

loop:

  push edi
  call BEL
  call printN

  inc edi
  cmp edi, ebx
  jnz loop

  call printLn

  xor eax, eax
  leave
  ret