Скрипт для проведения топологической оптимизации ,

Добрый день, подскажите почему не работает файл схемы для тополоической оптимизации , Делал по этому видео , за исключением end_loop убрал вниз, так как fluent ругался , в чем проблема запуска скрипта? , создал файл с разрешением (.scm) затем запустил через fluent  и выдал следующее: 

       > Loading "D:/ALL ASNSYS AND SOLID/ulitka new files/dp0/FFF-6/Fluent/new.scm"

      Done.

       #f

и все после ничего, в чем может быть дело? нужно ли что-то активировать? снизу привел сам скрипт  правильно ли я все делал?

(define start_loop 1)
(define end_loop 10)
(define x start_loop)
(define max-iter-adjoint 50)

(do ((x start_loop (+ x 1))) 

   (display x)

     (ti-menu-load-string (format #f "/adjoint/run/iterate ~a \n" max-iter-adjoint))

     (ti-menu-load-string "/adjoint/design-tool/design-change/calculate-design-change \n")
     (ti-menu-load-string "/adjoint/design-tool/design-change/modify-mesh \n")     
     
     (ti-menu-load-string "solve iterate,")

     (ti-menu-load-string "/adjoint/observable/select \"linear combination\" no \n") 
     (ti-menu-load-string "/adjoint/observable/write yes observables.txt yes \n") 
    
     (ti-menu-load-string "/adjoint/observable/select \"linear combination\" no \n")
 ((> x end-loop))
)