parent programmer
object admin

eval
    .initialize();
    .set_name("Administrator");
    .add_command("as * eval *", 'template, 'eval_as_cmd);
.

method eval_as_cmd
    arg dummy1, objname, dummy2, line;
    var obj, result;

    catch ~objnf {
        obj = .match_environment(objname);
    } with handler {
        .tell("I don't see \"" + objname + "\" here.");
        return;
    }
    result = obj.eval([line]);
    if (result[1] == 'errors)
        .tell(result[2]);
    else
        .tell("--> " + toliteral(result[2]));
.