#P 100 100
            * -*+ % + IIIIIIIIII # Set failure

            *     -
IIIIIIIIII -  +@+  *+ IIIIIIIIII # Set success

               f

IIIIIIIIII -  -@-  *+ IIIIIIIIII # Reset success
            *     -

            * -*+ % + IIIIIIIIII # Reset failure