/* define a function using strings */
deffun(name, body)
{
        eval(sprintf("#deffun %s %s", name, body));
}