rebol[]a: do input prin(a - 1)*(a - 2)/ 2