(lists/take-while (fn [x] (< .x 3)) [1 2 3 1])
(lists/take-while :fn/identity [1 false 2])
(lists/take-while :fn/identity [])
(lists/take-while :fn/identity null)
(lists/take-while :fn/identity [false 1])
(lists/take-while :fn/identity [0 "" [] null 1])
(lists/take-while (fn [x] true) [null false])
(lists/take-while (fn [x] (< .x 3)) [1 2 3 invalid])