:example (ab-)
  dup-pair gt? [ 'A>B s:put nl ] if
  dup-pair lt? [ 'A<B s:put nl ] if
           eq? [ 'A=B s:put nl ] if ;