variable light
1 light ! ( turn on the light to start )
: off! ( a -- ) 0 swap ! ;
: on? ( a -- f ) @ 1 = ;
light on? if light off! then