! ...which is a very pointless way to avoid explicit looping
! since you can do the same by rolling the seconds to sleep
! into the quot to each.
: tick-loop ( n -- )
   0 swap 0.5 [ <range> reverse ] keep
   [ seconds sleep  "This page will self-destruct in 
   %.1f seconds.<br/>" sprintf send-chunk ] curry each ;