PROCESS slow_buffer [get, put] (delay: number) : NOEXIT :=
  get ?n: number;
  (*| delay pnumber($1) |*)
  put !n;
  slow_buffer [get, put] (delay)
  ENDPROC (* slow_buffer *)