[ call -> stop ] [ ui-notify-flag get lower-flag [ update-ui ] ui-try -> update-ui-loop ] [ swap >c call -> c> drop ] [ >r datastack r> dip -> >r datastack r> 2dup [ length ] compare { ~array~ ~array~ ~array~ } case ] [ >r call -> r> ] [ iterate-step -> iterate-next (each-integer) ] [ swap >r 2dup 2slip -> r> swap ] [ >r >r call -> r> r> ] [ >r associate >n r> call -> ndrop ] [ swap >c call -> c> drop ] (draw-world) (draw-gadget) (draw-gadget) (draw-gadget) (draw-gadget) glDrawArrays [ 63 getenv error-thread set-global continuation -> error-continuation set-global rethrow ]