; -*- scheme -*-
(use-modules (ice-9 slib))

(require 'coerce)

(define (bot:eval channel str)
  (bot:say channel
	   (coerce 
	   (eval-string str) 'string)))

(bot:addcommand "eval" bot:eval #t 2 4)