 
 : main ( -- )
     make-window clear-window setup-game-vars
-    [ change-player-position
-      render-loop
-      window-should-close not ] loop
-    close-window
-        ;
-    
+    [
+        change-player-position
+        render-loop
+        window-should-close not
+    ] loop close-window ;
+
 MAIN: main
-   


! Make this cleaner
: change-player-position ( -- )
    {
        { [ KEY_RIGHT enum>number is-key-down ] [ player get x>> 2.0 + player get x<<   ] }
        { [ KEY_LEFT enum>number is-key-down ] [ player get x>> -2.0 + player get x<<   ] }
        { [ KEY_DOWN enum>number is-key-down ] [ player get y>> 2.0 + player get y<<   ] }
        { [ KEY_UP   enum>number is-key-down ] [ player get y>> -2.0 +  player get y<<   ] }
        [  ] } cond ;

: render-loop ( -- )
    begin-drawing

: show-player-circle ( -- )
    player get
    25.0 RED draw-circle-v ;

: setup-game-vars ( -- )
    get-screen-width 2 /
    get-screen-height 2 /
