title: How to do square in RACKET
body: <p>Here is my code:</p>
  
  <pre><code>(define (squares 1st)
    (let loop([1st 1st] [acc 0])
      (if (null? 1st)
          acc
          (loop (rest 1st) (* (first 1st) (first 1st) acc)))))
  </code></pre>
  
  <p>My test is:</p>
  
  <pre><code>(test (sum-squares '(1 2 3)) =&gt; 14 )
  </code></pre>
  
  <p>and it's failed.</p>
  
  <p>The function input is a list of number [1 2 3] for example, and I need to square each number and sum them all together, output - number.
  The test will return #t, if the correct answer was typed in.</p>