(define (512vec arri)
  (define w (dim-size arri 0))
  (define h (dim-size arri 1))
  (define powt 32)
  (define exp (dec (- (/ powt 2) (/ (dec w) 2))))
  (define arr (array-pad-asym (expand-simu exp arri)))
  
  (array-print arr)
  arr
  )