sub proc {
    for (@_) { $_ = proc(@$_) if ref }
    warn "EXPR @_\n";
    eval "@_";
}