title: Constructing a list of numbers in Scheme
body: <p>I'm doing a programming assignment in Scheme where we have to develop a method of finding Happy Numbers. I've completed the meat (finding Happy numbers from a number n) but I'm having trouble constructing a list correctly.</p>
  
  <p>Here is my code:</p>
  
  <p><code>(sosd num)</code> calculates <code>num</code>'s Happy Number and <code>(stop? num)</code> determines if <code>num</code> is a recursive number from a predetermined list.</p>
  
  <pre><code>(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 '())
    )
  </code></pre>
  
  <p>However while I want a list that looks like <code>(1 2 3 4 5)</code>, I get <code>(1 (2 (3 (4 (5)))))</code>. I've tried <code>cons</code> instead of <code>append</code> and I get something different, but not what I'm looking for.</p>
  
  <p>What am I doing wrong?</p>