diff --git a/build/ludus.jimage b/build/ludus.jimage
index 4f4342a..500d0d3 100644
Binary files a/build/ludus.jimage and b/build/ludus.jimage differ
diff --git a/build/out.mjs b/build/out.mjs
index 0a0782e..d8162e0 100644
--- a/build/out.mjs
+++ b/build/out.mjs
@@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
 var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
 var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
 var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
-var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816476;
+var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816104;
 function invoke_i(index) {
   var sp = stackSave();
   try {
diff --git a/build/out.wasm b/build/out.wasm
index 9ccaa9d..a793750 100755
Binary files a/build/out.wasm and b/build/out.wasm differ
diff --git a/prelude.ld b/prelude.ld
index a5c90d4..a64a5fe 100644
--- a/prelude.ld
+++ b/prelude.ld
@@ -1232,8 +1232,8 @@ fn apply_command {
 		(:clear) -> do state >
 			assoc (state, :position, (0, 0)) >
 			assoc (_, :heading, 0)
-		(:right, turns) -> update (state, :heading, mod (add (_, turns), 1))
-		(:left, turns) -> update (state, :heading, mod (sub (_, turns), 1))
+		(:right, turns) -> update (state, :heading, add (_, turns))
+		(:left, turns) -> update (state, :heading, sub (_, turns))
 		(:forward, steps) -> {
 			let #{heading, position, ...} = state
 			let unit = heading/vector (heading)