projects/Stacker/test/shr.st

#
# SHR test
#
FORWARD success;
FORWARD failure;
: show_failure >d SPACE failure ;
: MAIN 64 3 >> 8 = IF success ELSE show_failure ENDIF ;