(define (sign-change-detector a0 a1)
  (cond
    [(and (< a0 0) (> a1 0)) 1]
    [(and (> a0 0) (< a1 0)) -1]
    [else 0]))

(define zero-crossings (stream-map sign-change-detector sense-data (cons-stream 0 sense-data)))