(defn foldr [f acc seq]
 (trampoline
   (fn []
     (if (first seq)
       #(f (first seq) (foldr f acc (rest seq)))
       acc))))