diff --git a/impls/mal/step4_if_fn_do.mal b/impls/mal/step4_if_fn_do.mal
index 07d49648..6f8ac098 100644
--- a/impls/mal/step4_if_fn_do.mal
+++ b/impls/mal/step4_if_fn_do.mal
@@ -52,8 +52,7 @@
           (LET (new-env env) (nth ast 1) (nth ast 2))
 
           (= 'do a0)
-          (let* [el (eval-ast (rest ast) env)]
-            (nth el (- (count el) 1)))
+          (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
           (= 'if a0)
           (if (EVAL (nth ast 1) env)
diff --git a/impls/mal/step6_file.mal b/impls/mal/step6_file.mal
index 5abc7298..89f3ee0f 100644
--- a/impls/mal/step6_file.mal
+++ b/impls/mal/step6_file.mal
@@ -52,8 +52,7 @@
           (LET (new-env env) (nth ast 1) (nth ast 2))
 
           (= 'do a0)
-          (let* [el (eval-ast (rest ast) env)]
-            (nth el (- (count el) 1)))
+          (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
           (= 'if a0)
           (if (EVAL (nth ast 1) env)
diff --git a/impls/mal/step7_quote.mal b/impls/mal/step7_quote.mal
index bb3371af..f40d206c 100644
--- a/impls/mal/step7_quote.mal
+++ b/impls/mal/step7_quote.mal
@@ -79,8 +79,7 @@
           (EVAL (QUASIQUOTE (nth ast 1)) env)
 
           (= 'do a0)
-          (let* [el (eval-ast (rest ast) env)]
-            (nth el (- (count el) 1)))
+          (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
           (= 'if a0)
           (if (EVAL (nth ast 1) env)
diff --git a/impls/mal/step8_macros.mal b/impls/mal/step8_macros.mal
index 979f2be0..7238c99f 100644
--- a/impls/mal/step8_macros.mal
+++ b/impls/mal/step8_macros.mal
@@ -95,8 +95,7 @@
             (MACROEXPAND (nth ast 1) env)
 
             (= 'do a0)
-            (let* [el (eval-ast (rest ast) env)]
-              (nth el (- (count el) 1)))
+            (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
             (= 'if a0)
             (if (EVAL (nth ast 1) env)
diff --git a/impls/mal/step9_try.mal b/impls/mal/step9_try.mal
index 515bb339..bdc0792b 100644
--- a/impls/mal/step9_try.mal
+++ b/impls/mal/step9_try.mal
@@ -106,8 +106,7 @@
                           (EVAL (nth a2 2) (new-env env [(nth a2 1)] [exc])))))))
 
             (= 'do a0)
-            (let* [el (eval-ast (rest ast) env)]
-              (nth el (- (count el) 1)))
+            (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
             (= 'if a0)
             (if (EVAL (nth ast 1) env)
diff --git a/impls/mal/stepA_mal.mal b/impls/mal/stepA_mal.mal
index 81742e3b..89fb49d2 100644
--- a/impls/mal/stepA_mal.mal
+++ b/impls/mal/stepA_mal.mal
@@ -106,8 +106,7 @@
                           (EVAL (nth a2 2) (new-env env [(nth a2 1)] [exc])))))))
 
             (= 'do a0)
-            (let* [el (eval-ast (rest ast) env)]
-              (nth el (- (count el) 1)))
+            (nth (eval-ast (rest ast) env) (- (count ast) 2))
 
             (= 'if a0)
             (if (EVAL (nth ast 1) env)