Writing a factorial function in forth for class demo