diff --git a/app/Assembler.hs b/app/Assembler.hs
index fe4aa1c..31309e7 100644
--- a/app/Assembler.hs
+++ b/app/Assembler.hs
@@ -24,7 +24,7 @@ version1 = P.execPut $ B.putWord8 1
 toBinary :: Command -> P.Put
 toBinary (Const i) = do
     P.putWord8 0x0001
-    P.putInt32be ((fromIntegral i)::Int32)
+    P.putInt32le ((fromIntegral i)::Int32)
 toBinary Add  = P.putWord8 0x0004
 toBinary Sub  = P.putWord8 0x0005
 toBinary Mult = P.putWord8 0x0006