forptr
struct namnod *n = lookup(forptr(t)->fornam);
if (forptr(t)->forlst == 0)
args = scan(getarg(forptr(t)->forlst));
execute(forptr(t)->fortre, XEC_NOSTOP, errorflg);