GNU nano 2.7.4                                                               Datei: pingpong.l

(de er_angefangen (PID) (wait 200) (prinl *Pid " sagt: " PID " war Schuld") (tell PID 'er_schuld *Pid) (tell))

(unless (setq *der_andere (fork)) (setq er_angefangen NIL) (de er_schuld (PID) (prinl *Pid " sagt: Aber " PID " hat angefangen") (tell PID 'er_angefangen *Pid) (tell)) (w$

(er_angefangen *der_andere)