diff --git a/programs/decimal_printer.mbl b/programs/decimal_printer.mbl
new file mode 100644
index 0000000..bced24e
--- /dev/null
+++ b/programs/decimal_printer.mbl
@@ -0,0 +1,25 @@
+(decimal printer)
+ o
+ 1
+ 2
+ 3
+ 4
+ 5
+ 6
+           o
+  (check if 0)
+v B-=-#01  <
+ v   * D-(div/10)
+v     B * <
+     o
+v> * 1    ^
+ F -R0* B(next digit, %10)
+*| # <-A vo(+48 = ascii)
+ |    #84 <
+ |       *-|
+ F         +B * B
+#<       \F----
+
+         *-|
+          P-
+         B
\ No newline at end of file