: tick ( loop -- ) [ [ [ tick-delegate>> tick* ] with-benchmarking ] [ [ draw-delegate>> 0.0 swap draw* ] with-benchmarking ] bi ] keep record-benchmarking ;