;;; -*- scheme -*-
(use-modules (ice-9 popen)
	     (ice-9 redelim))

(define (uname c)
  (let* ((p (open-input-pipe "/bin/uname -a"))
         (s (read-line p)))
  (close-pipe p)
  (bot:say c s)))

(bot:addcommand "uname" uname #t 0 1)