IN: little-test USING: continuations kernel math sequences system ; : isolated-time ( quote -- delta-in-millis ) { } swap '[ millis @ millis ] with-datastack [ first ] [ peek ] bi swap - ; : faster? ( quot1 quot2 -- ? ) [ isolated-time ] bi@ < ; ! [ 2 3 + ] [ 3 4 - 1 seconds sleep ] faster? ! ==> t