(fate_version 1)

(declare_structure test_struct
   (int i)
   (float f)
   (int j)
   (string str)
)

(global test_struct st0)
(global test_struct st1)

(set_fields! st0
   (i -1)
   (f -5.0)
   (j -2)
   (str nothing)
)

(global (lambda test_struct (test_struct)) update_test_struct)

(set_value update_test_struct
   (lambda ( (test_struct s) )
      (if_else (< (var s.i) 10)
         (eval
            update_test_struct
            (set_fields s
               (i (+ (var s.i) 1))
               (j (+ (var s.j) 10))
            )
         )
         (var s)
      )
   )
)

(set_value st1 (eval update_test_struct (var st0)))

(car (cons 1 (cons 2 (cons 3 (cons 4 5)))))
(car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))
(car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))
(car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))))
(cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))))

(global (list int) int_list_a)
(global (list int) int_list_b)
(global (list int) int_list_c)
(global int i)

(for (set i 0) (< (var i) 10) (set i (+ (var i) 1))
   (add! (var i) int_list_a)
   (add! (var i) int_list_c)
)

(set int_list_b (shuffle int_list_a))
(shuffle! int_list_c)

(set int_list_c (var int_list_a))
(remove_one! 6 int_list_a)

(= (var int_list_a) (remove_one 6 int_list_c))

(set int_list_b (var int_list_a))
(remove_all! 3 int_list_a)

(= (var int_list_a) (remove_all 3 int_list_b))

(set int_list_c (var int_list_a))
(remove_at! 4 int_list_a)
(= (var int_list_a) (remove_at 4 int_list_c))

(set int_list_c (range 0 20 2))
(set int_list_a (var int_list_c))
(reverse! int_list_a)
;;(set int_list_b (reverse (range 0 50 5)))
(end)