(defn inter [ls1 ls2]
(let [length1 (count ls1)
length2 (count ls2)]
(if (zero? (min length1 length2))
'()
(cons
(first ls1)
(cons (first ls2)
(inter (rest ls1) (rest ls2)))))))
(println (inter '(1 2 3) '("foo" "bar" "baz")))
KGRlZm4gaW50ZXIgW2xzMSBsczJdCiAgKGxldCBbbGVuZ3RoMSAoY291bnQgbHMxKQogICAgICAgIGxlbmd0aDIgKGNvdW50IGxzMildCiAgICAoaWYgKHplcm8/IChtaW4gbGVuZ3RoMSBsZW5ndGgyKSkKICAgICAgJygpCiAgICAgIChjb25zCiAgICAgICAgKGZpcnN0IGxzMSkKICAgICAgICAoY29ucyAoZmlyc3QgbHMyKQogICAgICAgIChpbnRlciAocmVzdCBsczEpIChyZXN0IGxzMikpKSkpKSkKCihwcmludGxuIChpbnRlciAnKDEgMiAzKSAnKCJmb28iICJiYXIiICJiYXoiKSkp