[ call -> stop ] [ [ tuck 2slip ] dip -> while ] [ [ call ] 2dip -> ] [ swap >c call -> c> drop ] [ [ datastack ] dip dip -> [ datastack ] dip 2dup [ length ] compare { ~array~ ~array~ ~array~ } case ] [ [ call ] dip -> ] [ notify-queued layout-queued redraw-worlds -> send-queued-gestures ] [ iterate-step -> iterate-next (each-integer) ] [ swap [ 2dup 2slip ] dip -> swap ] [ [ call ] 2dip -> ] [ [ associate >n ] dip call -> ndrop ] [ swap >c call -> c> drop ] (draw-world) (draw-gadget) (draw-gadget) (draw-gadget) (draw-gadget) (draw-gadget) (draw-gadget) glDrawArrays [ 63 getenv error-thread set-global continuation -> error-continuation set-global rethrow ]