scan_next
while (!eof_token(p = scan_next(list))) {
while (!eof_token(next = scan_next(list))) {
while (!eof_token(next = scan_next(list))) {
while (!eof_token(next = scan_next(p))) {
if (!match_op(scan_next(&token->next), '('))