<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/, even though.*\\. / without checking. / or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,0;

char s[99],*p[9],**q;main(){for(;q=p,*q++=strtok(gets(s)," ");fork()||execvp(*p,p),wait(0))for(;*q++=strtok(0," "););}