Move definition of $execute function

wipforth.wat

@@ -535,6 +535,13 @@
        global.set $ip
        call $next)
 
+ (func $execute
+       call $pop
+       global.set $cfa
+       global.get $cfa
+       i32.load
+       global.set $fn)
+
  ;; Return and parameter stack primitives
 
  (func $tor
@@ -660,15 +667,6 @@
        global.set $ip
        call $next)
 
- ;; Execution
-
- (func $execute
-       call $pop
-       global.set $cfa
-       global.get $cfa
-       i32.load
-       global.set $fn)
-
  ;; The codewords function table must contain every codeword we want
  ;; to be able to run, as it's indices into this table that can be ran
  ;; with call_indirect in the $trampoline loop.  Fantastically, there