(define (count lst)
  (cond ((null? lst) 0)

        (else (+ 1 (count (cdr lst))))))


(define (second my_list)
     (cond ((< ( count my_list) 2) "less than 2")

                    (else  ( cdr (cdr my_list))

                           )
           )


  )
     (define r '() )

(define (first my_list)

     (cond ((LIST? my_list)
     (cond
           ((< ( count my_list) 2) '("less than 2" "fff") )
           ((> ( count my_list) 1) (set! r (cons (car (cdr my_list)) r))
                                   (set! r (cons (car my_list) r))
                                   r )

                    (else  '(car my_list)

                           )
           )

      )
      (else (cdr my_list)))
  )
(first '(5 3 4 . 4)  )
;;(count '(4 5 4 2 5 3 5))
;;(define sec (second '(2 3 5 4)))
;;(define fir (first '(2  3 5 4)))
;;(define re '() )
;;(set! re (cons sec '()))
;;(set! re (cons fir re))