: example ( ab- )
  cons
  [ do > [ "A > B\n" puts ] ifTrue ]
  [ do < [ "A < B\n" puts ] ifTrue ]
  [ do = [ "A = B\n" puts ] ifTrue ] tri ;