lisp_eval_should_be '(with-ors "" (print "foo"))' \
                    '"foo"()' 'with-ors'

    else if(car == _symbol("getline"))
        return _getline()
    else if(car == _symbol("with-ors"))
        return _with_ors(_eval3(_cadr(form), env, env, d+1),
                         _cddr(form), env, d+1) # to be evaluated using evprog

function _getline(        a, rv) {
    rv = getline a
    return _cons(_string(a), _cons(_number(rv), _nil()))
}
function _with_ors(new_ors, forms, env, d,       old_ors, rv) {
    old_ors = ORS
    if(_TYPE[new_ors] == "s") {
        ORS = _STRING[new_ors]
        rv = _evprog(forms, env, env, d)
        ORS = old_ors
        return rv
    } else {
        logg_err("_with_ors", "with-ors needs a string")
        return _nil()
    }
}

(setq getline (lambda () (getline))) \
(setq with-ors nil) \

    _symbol("getline")
    _symbol("with-ors")