Unnamed

(defun upto (numb)
  (cond
        ((eq (car numb) 1) numb)
        (t (upto (cons (- (car numb) 1) numb)))
        )
  )

(defun hello (list)
  (cond
        ((null list) nil)
        ((print (cons 'hello (car list))) (hello (cdr list)))
        )
  )

(hello (upto '(10)))