( Problems, page 305 )
( skipping 1 and 2 )

: rat    ." Rat" ;
: ox     ." Ox" ;
: tiger  ." Tiger" ;
: rabbit ." Rabbit" ;
: dragon ." Dragon" ;
: snake  ." Snake" ;
: horse  ." Horse" ;
: ram    ." Ram" ;
: monkey ." Monkey" ;
: cock   ." Cock" ;
: boar   ." Boar" ;
create animals
' rat ,
' ox ,
' tiger ,
' rabbit ,
' dragon ,
' snake ,
' horse ,
' ram ,
' monkey ,
' cock ,
' boar ,
: .animal  8 * animals + @ execute ;
: (juneeshee)  8 + 12 mod .animal ;
variable year-of-birth
: juneeshee  cr ." Enter your year of birth: "
             year-of-birth
             4 over c!
             dup 1+ 4 expect  number drop  cr (juneeshee) ;

( Skipping 4 )

( And 5. I don't know how block works on modern machines. )
