$ clear

[paprika@paradicsom:/mnt/data/egyetem/5felev/szimu/gyak/orax/pak]$ chicken-profile PROFILE.5762 
reading `PROFILE.5762' ...

procedure               calls  seconds  average  percent
--------------------------------------------------------
<eval>                      3   13.830    4.610   89.688
<syntax>                    2    1.580    0.790   10.246
traversal.scm:21: loop      1    0.010    0.010    0.064

[paprika@paradicsom:/mnt/data/egyetem/5felev/szimu/gyak/orax/pak]$ cat simu-cli.s
(require "simu.s")

(define simustate (expand-simu 4))
(define simuwidth 0)
(define simuheight 0)

(define (update-state)
  (define w (dim-size simustate 0))
  (define h (dim-size simustate 1))
      
  (set! simustate (step simustate))
      
  (set! simuwidth w)
  (set! simuheight h)
  )

(define (main #!optional (i 0))
  (if (< i 1000)
      (begin (update-state)
             (array-print simustate)
             (main (+ i 1)))
      )
  )

(main)