     (go s [])))
 ;fpins
 (defn my-take-while-fpins
-  "fpins variant of take-while"                                   ;obviously - less verbose than mine and no (obvious) accumulation :)
+  "fpins variant of take-while"                             ;obviously - less verbose than mine and no (obvious) accumulation :)
   [f s]
   (let [value (first s)]
     (when (f value)

  [p s]
  (fold-right true #(and (p %) %2) s))
;-----------------------------------------------------------------------


;auxiliary - direct translation from book
(defn fold-right [z f s]
  (let [[h & t] s]
    (if t
      (f h (fold-right z f t))
      (if h (f h z) z))))
;it would be more concise should I have used core.match

;example - exists via f-r - also direct translation from book
(defn exists
