rebol [
  title: "maximum of three values"
  author: "vpavlu"
  date: 9-Dec-2002/13:33
  home: http://plain.at/vpavlu
]

a: 3
b: 1
c: 2

either a > b [
  print either a > c [a][c]
][
  print either b > c [b][c]
]

;or better (fewer blocks)

print either a > b [
  pick reduce [a c] greater? a c
][
  pick reduce [b c] greater? b c
]

;or better

print max a max b c