#!/usr/local/bin/bigloo

(define (parse-time real-time)
   (let* ((user-time (read))
	  (dummy2    (read))
	  (sys-time  (read)))
      (cond
	 ((or (not (real? real-time))
	      (not (real? user-time))
	      (not (real? sys-time)))
	  (error "parse-time" "Illegal entry" user-time))
	 (else
	  (let ((time (+ user-time sys-time)))
	     (print time " s (usr + sys)"))))))
       
   
(let loop ((r          (read))
	   (real-time  #f))
   (cond
      ((and real-time (eq? r 'real))
       (parse-time real-time))
      ((not (real? r))
       (loop (read) #f))
      (else
       (loop (read) r))))

