(do
    (for-each [1 2 3 4] x (writeln "value: " x))
    (writeln "READY")
)

; desugared
;
; #todo no need for for-each, just use ...for
;
; (for (let x (next xs)) (do ...))
; (for-each xs x (do ...))
; (for (next xs_iter x) (do
; (for-each (Fn (x) (writeln "value: " x)) xs)
; (for-each (writeln "value: " %1) xs)
; (let write_each (curry (for-each (writeln "value: " %1))))
; (write_each xs)