<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/(alphabet).*/$1 doesn\'t have the letter C.\\n/ or die; open$o,">",$f; print$o $_ or die; print substr$_,300;

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