find factorial using a product procedure in scheme