; Factorial
(define (fact n)
  (if (<= n 1)
      1
      (* n (fact (- n 1)))))

; Counting up
(define (count-up n)
  (define (counter k)
    (print k)
    (if (< k n)
        (counter (+ k 1))))
  (counter 1))

; Hailstone
(define (hailstone n)
  (print n)
  (cond ((= n 1) 1)
        ((even? n) (hailstone (/ n 2)))
        (else (hailstone (+ 1 (* n 3))))))