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