diff --git a/HW3.fedorind.hs b/HW3.fedorind.hs
index 8bd3785..d0504ba 100644
--- a/HW3.fedorind.hs
+++ b/HW3.fedorind.hs
@@ -52,7 +52,7 @@ nixMacro = Define "nix" [ "x", "y", "w", "h" ]
 steps :: Int -> Prog
 steps n = base ++ stepList
     where
-        base = [ Pen Up, Move (Number 0) (Number 0) ]
+        base = [ Pen Up, Move (Number 0) (Number 0), Pen Down ]
         stepList = [1..n] >>= (\i -> [ Move (Number (i -1)) (Number i), Move (Number i) (Number i) ])
 
 prettyPrintExpr :: Expr -> String