Hi Hack archives Developers,
Please check for typo in the URL.
The file is accessable, another user
has managed to download it from the
link I provided.

Files are now available on github

Here's a code example, as asked for. It is used to test the begin..again construct, letting the device LED, assuming there is one, flash. expected and check come from the included run time library, used to check expected result, and at the end light a green or red LED, according the test outcome. Also noteworthy is that the beginagain test word is forward referenced.

$deadbeef constant canary

 1 constant black
-1 constant white
: main ( -- )
   beginagain
   canary expected
   check  ;

: beginagain
   canary
   5
   begin
      white led
      black led
      1- ?dup 0= ?exit \ breakout condition
   again
;