It would be interesting in seeing other examples of the same functions for comparison in e.g. wart, etc.

Also, here's my take on the first few in arc:

  (for x 1 10
    prn.x)

  (map [prn _] '(1 2 3 4 5 6 7 8 9 10))

  (def f (n)
    prn.n
    (if (< n 10) (f:+ n 1)))
  (f 1)
 

  for x 1 (x < 10) ++x
    prn x

  map prn '(1 2 3 4 5 6 7 8 9 10)

  def (f n)
    prn n
    if (n < 10)
     (f n+1)
  f.1

Edit 13 hours later: Ack, I was wrong. Wart would drop the parens just fine!

  if n < 10
   (f n+1)

  if (function-call n x1 x2 x3) < 10
    (f n+1)
  # still works, but yuck..