(take-nth 2 '("bl" "k" "y" "du"))

(loop [x false
       list '("bl" "k" "y" "du")
       ans '()]
  (if (empty? list)
    ans
    (if x
      (recur false
        (rest list)
        ans)
      (recur true
        (rest list)
        (reverse (conj ans (first list)))))))