: even? \ n -- f
  1 n:band not ;
: odd? \ n -- f
  even? not ;