; list length
(define (count_ lst len)
 (cond ((null? lst) len  )
        ((not (PAIR? lst)) len )
        (else  (
                    count_ (cdr lst  ) (+ len 1)
                          ))))
; reverse list
(define (reverse_ list_  result  position )

    (cond ((null? list_)  result  )
          ( (and (= position 1  ) (PAIR?  list_) (LIST? list_) )

                            (cons  (car list_)  result ) )
             ( (and  (= position 1  ) (PAIR?  list_) (not (LIST? list_)) )

                          (cons   list_   result ) )
             (else
                        (reverse_ (cdr list_) (cons (car list_) result  )  ( - position 1) )
                     )
     )
)
; check second part for different issues
(define (check li copy possible_pair_position deep)
      (cond ((null? li)  copy  )
            ( (and (=  possible_pair_position 1  ) (PAIR?  li) (LIST? li) )

                         (reverse_ (cons  (car li)  copy ) '() deep)     )
             ( (and (=  possible_pair_position 1  ) (PAIR?  li) (not (LIST? li)) )

                         (reverse_ (cons   li   copy ) '() deep)  )
           ( (=  possible_pair_position 1  )

             (cons  (car li) copy ) )
           (else

      (check (cdr li  ) (cons (car li) copy )   (- possible_pair_position 1) deep )
            )
       )

 )
;second part formatting
(define (second my_list)
     (define len  ( count_ my_list 0) )
     (cond ((< len 2) "less than 2")
           ((= len 2) '() )
           (else  ( check (cddr my_list) '()  (- len 2) (- len 2) )
                           )
           )

  )
;first part formatting
(define (first my_list)

     (cond ((and  (not (LIST? my_list)) (not (PAIR? my_list))) "atom" )
           ((< ( count_ my_list 0) 2) "list size less than 2"  )
           ((= ( count_ my_list 0) 2)
                                       (cond ((and (not (LIST? my_list)) (PAIR? x) )
                                              (cons (car my_list) (cons ( cdr my_list) '()))

                                              )
                                       (else
                                               (cons (car my_list) (cons ( cadr my_list) '() ))
                                               )
                                             )                  )
           ((> ( count_ my_list 0) 2)
                                    (cons (car my_list) (cons ( cadr my_list) '() ) )
            )
                    (else  '(car my_list)
                           )
           )


  )
(define (combine_parts  first_part x)
(cond ( (or (EQ? first_part "atom" ) (EQ? first_part "list size less than 2"))
         (display "could not make oparations because of ")
        (display first_part)  )
      (else
              (cons first_part (cons  (second x) '() ))
       )
)
  )
 (define object_to_process '( 2 44 5 . 3  ) )
 (display object_to_process)
(display "\n")
(combine_parts  (first  object_to_process) object_to_process)