((fn [start & args]
            (loop [last-val start
                   coll [start]
                   args args]
              (if args
                (recur ((first args) last-val) (conj coll last-val) (rest args))
                coll))) 0 inc dec inc inc)