(logf "entering parseresults with ~a results in ~a sizes"
(apply + (map (lambda (o) (length (cdr o))) sr))
(number->string (length sr)))
(logf "entering parseresults with ~a results in ~a sizes"
(apply + (map (lambda (o) (length (cdr o))) sr))
(number->string (length sr)))