$ txr -p '[reduce-left * (range 1 10) 1]'
3628800