\ ПРАВИЛА ИГРЫ ВОЛК-КОЗА-КАПУСТА
1 CONSTANT К 2 CONSTANT З 4 CONSTANT В 8 CONSTANT М
MAKE ЛОДКА 16 ;
CREATE ЗАМЕНЫ М , М К OR , М З OR , М В OR , 4 CONSTANT ЗАМЕН
: ВОЛК? В +? >R М -? >R З +? R> AND R> AND ;
: КАПУСТА? К +? >R М -? >R З +? R> AND R> AND ;
: НЕДОПУСТИМАЯ? ( ш -- ш, f) ВОЛК? >R КАПУСТА? R> OR ;
MAKE ЛЮДИ. ЛОДКА 76 КУДЫСЬ К 75 КУДЫСЬ З 90 КУДЫСЬ
В 87 КУДЫСЬ М 77 КУДЫСЬ ;

\ ПРАВИЛА ИГРЫ HELP-THE-SAIL
1 CONSTANT Б 2 CONSTANT К 4 CONSTANT П 8 CONSTANT С1
16 CONSTANT С2 32 CONSTANT М 64 CONSTANT Д1 128 CONSTANT Д2
MAKE ЛОДКА 256 ;
CREATE ЗАМЕНЫ К , К Б OR , К П OR , К С1 OR , К С2 OR ,
К М OR , К Д1 OR , К Д2 OR , П , П С1 OR , П С2 OR ,
П М OR , М , М Д1 OR , М Д2 OR , 15 CONSTANT ЗАМЕН
: БАНДИТ? Б +? >R К -? >R DUP ЛЮДИ Б XOR AND R> AND R> AND ;
: ПАПА? П +? >R М -? >R Д1 +? >R Д2 +? R> OR R> AND R> AND ;
: МАМА? М +? >R П -? >R С1 +? >R С2 +? R> OR R> AND R> AND ;
: НЕДОПУСТИМАЯ? ( ш -- ш, f)
БАНДИТ? >R ПАПА? >R МАМА? R> OR R> OR ;
MAKE ЛЮДИ. ЛОДКА 76 КУДЫСЬ К 67 КУДЫСЬ Б 66 КУДЫСЬ
П 80 КУДЫСЬ С1 83 КУДЫСЬ С2 83 КУДЫСЬ М 77 КУДЫСЬ
Д1 68 КУДЫСЬ Д2 68 КУДЫСЬ ;