Enjoy a randomly generated fortune:
$ fortune | cowsay
_________________________________________
/ === ALL USERS PLEASE NOTE \
| ======================== |
| |
| There has been some confusion |
| concerning MAPCAR. |
| |
| (DEFUN MAPCAR (&FUNCTIONAL FCN &EVAL |
| &REST LISTS) |
| |
| (PROG (V P LP) |
| |
| (SETQ P (LOCF V)) |
| |
| L (SETQ LP LISTS) |
| |
| (%START-FUNCTION-CALL FCN T (LENGTH |
| LISTS) NIL) |
| |
| L1 (OR LP (GO L2)) |
| |
| (AND (NULL (CAR LP)) (RETURN V)) |
| |
| (%PUSH (CAAR LP)) |
| |
| (RPLACA LP (CDAR LP)) |
| |
| (SETQ LP (CDR LP)) |
| |
| (GO L1) |
| |
| L2 (%FINISH-FUNCTION-CALL FCN T (LENGTH |
| LISTS) NIL) |
| |
| (SETQ LP (%POP)) |
| |
| (RPLACD P (SETQ P (NCONS LP))) |
| |
| (GO L))) We hope this clears up the |
\ many questions we've had about it. /
-----------------------------------------
\ ^__^
\ (oo)\_______
(__)\ )\/\
||----w |
|| ||
$output = shell_exec("/usr/games/fortune | /usr/games/cowsay");
echo $output;