(define (sspd_series num)
  (if (stop? num)
      (make-list num)
      (append (make-list(sosd num)) (make-list(sspd_series (sosd num))))
      )
  )

(define (make-list num)
  (cons num '())
  )