(define (loadavg) ;Read /proc/loadavg;Return list
  (let ((in (open-input-file "/proc/loadavg")))
    (let loop ((ret '()) (i (read in)))
      (if (eof-object? i) (reverse ret)
          (loop (cons i ret) (read in))))))
;From test.scm
(write (loadavg))
=> (2.18 1.84 1.64 1/57 16238)
;From run.scm
(write (loadavg))
=> (2.18 1.84 1.64 0.0175438596491228 16238)