   "a logger that prints to standard output"
   (print-logger *out*))
 
-(fact (*out*-logger "hello")
+(fact
+  (*out*-logger "hello")
   ; hello
   => nil)
 


(fact "prefix with a number of arguments"
  (apply * 0.5 3 args)
  => -60.0)

"
'apply' applies a function to all arguments in a sequence, 'partial' only applies
some of the arguments returning a new function that applies to the rest.
"
(def only-strings (partial filter string?))

(fact "partial application"
  (only-strings ["a" 5 "b" 6])
  => '("a" "b"))


  (print-logger writer))

(facts
  (fact
    (retained-logger "hello")
    => nil )
  (fact
    (str writer)
    => #"hello\r\n") )   ;test for only one "hello\n"

"
logging to a file:"
