scripts/uname

   1 (use-modules (ice-9 popen))
   2
   3 (define (uname c)
   4   (let* ((p (open-input-pipe "/bin/uname -a"))
   5          (s (read-line p)))
   6   (close-pipe p)
   7   (bot-say c s)))
   8
   9 (bot-addcommand "uname" uname #t 0 1)