#!/afs/athena/contrib/perl/p

require '/mit/mkgray/perl/line_edit.pl';

while(1){
    $foo = &line_edit'get(";");
    if($foo eq 'run'){
	eval($bar);
    }
    elsif($foo eq 'clear'){
	$bar='';
    }
    else{
	$bar .= $foo."\n"; 
    }
}