// RPL/2 version 4.00pre8w processus image
// Source file : example_smp.rpl

// Error :
+++System : Process error

// Current stack (LAST disabled)

1: 41

// Half-compiled definitions

          BOTTLES << 100 'RECURSIVE' detach -> PROC << do PROC recv until 
         end drop2 do do PROC recv until end list-> drop dup " on the wall
         ," + disp "." + disp "Take one down, pass it around," disp if dup

Error  :  1 same not then do PROC recv until end list-> drop else 1 "No mo
PC     :                             >|<

         re bottles of beer" end " on the wall." + disp drop "" disp until
          1 same end PROC wfproc >> >> RECURSIVE << while dup repeat 1 - d
         up dup ->str if over 1 > then " bottles " else " bottle " end + "
         of beer" + 2 ->list dup send send RECURSIVE end >>
// End of file

// Variables

{ { 'BOTTLES'
    0
    @ 0000000000000008
    "VOLATILE"
    "LOCKED" }
  { 'PROC'
    2
    Process $ 0000000000003521
    "VOLATILE"
    "UNLOCKED" }
  { 'RECURSIVE'
    0
    @ 000000000000016C
    "VOLATILE"
    "LOCKED" } }