: take?
  center 0= north 0> and
;

: give?
  south 0= center 0> and
;

: safe-pass
  center
  take? if drop north then
  give? if drop south then
  >pln0
  center' >pln1
;

: rule
  safe-pass
;