linear recursive factorial from sicp in scheme