do i = 5 to 10
   say 'Number:'i 'Factorial:'Calculate_Factorial(2,i)
end
exit

/*  --------------------------------------
    Return the multiple (factorial) of all  
    numbers between arg1 and arg2.
    -------------------------------------- */
Calculate_Factorial: procedure
parse arg startNum,endNum
factorial = 1
do i = startNum to endNum
   factorial = factorial * i
end
return factorial