#!/usr/bin/env factor-vm
USING: assocs calendar environment formatting io
io.encodings.string io.encodings.utf8 kernel literals math
math.parser prettyprint sequences threads vocabs ;
IN: chunked-cgi

: send-chunk ( string -- )
   [ utf8 encode length >hex print ] keep print flush ;

: tick-loop ( n -- )
   [ "This page will self-destruct in %.1f seconds.<br/>"
     sprintf send-chunk ]
   [ 0.5 dup seconds sleep - ] bi
   [ 0 <= ] 1check [ drop ] [ tick-loop ] if ;

! == Script proper:
   "Content-type: text/html; charset=utf8" print
   "Transfer-Encoding: chunked\r\n" print
   8 tick-loop "*Ka-Boom*" send-chunk "0\r\n" print