(def only (f)
      (fn args (if (car args) (apply f args))))

The . and ! operators got redefined so that x.y.z is ((x y) z) instead of (x y z). I think I posted the source on arclanguage.org.