eval [p,*$<]*"n=0;p eval'n=[n];'*"