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