RosettaCodeData/Task/Integer-comparison/Retro/integer-comparison-2.retro

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