use  *print-fn* for log