.NET binding about lemon HOT 1 CLOSED

diff --git a/src/machine.c b/src/machine.c
index c6b8d54..4b7726e 100644
--- a/src/machine.c
+++ b/src/machine.c
@@ -1278,6 +1278,13 @@ lemon_machine_execute_loop(struct lemon *lemon)
 		CHECK_PAUSE(lemon->l_nil);
 	}
 	while (!machine->halt && machine->pc < machine->maxpc) {
+
+		if (machine->step >= 0) {
+			if (machine->step-- == 0) {
+				machine->step = 10;
+				return lemon->l_nil;
+			}
+		}
 		opcode = machine->code[machine->pc++];
 
 		switch (opcode) {
diff --git a/src/machine.h b/src/machine.h
index 9f1c8e6..61ed5c7 100644
--- a/src/machine.h
+++ b/src/machine.h
@@ -11,6 +11,7 @@ struct machine {
 	int fp; /* frame pointer */
 	int sp; /* stack pointer */
 
+	int step;
 	int halt;
 	int maxpc;
 
diff --git a/src/main.c b/src/main.c
index 23ea8f4..8b961e0 100644
--- a/src/main.c
+++ b/src/main.c
@@ -1,5 +1,6 @@
 #include "lemon.h"
 #include "shell.h"
+#include "machine.h"
 #include "larray.h"
 #include "lstring.h"
 #include "lib/builtin.h"
@@ -70,7 +71,15 @@ main(int argc, char *argv[])
 		}
 
 		lemon_machine_reset(lemon);
-		lemon_machine_execute(lemon);
+		struct machine *machine = lemon->l_machine;
+		machine->step = 10; // -1 for non-stop run
+		for (;;) {
+			printf("pc: %d\n", machine->pc);
+			lemon_machine_execute_loop(lemon);
+			if (machine->pc >= machine->maxpc) {
+				break;
+			}
+		}
 	}
 
 	lemon_destroy(lemon);