#!/usr/local/bin/rpl -sc

/*
 * With multithread and recursive function.
 * RPL/2 4.00pre8p is required.
 * (C) JKB, 12th of august 2006.
 */

BOTTLES
<<
        // Child process is started.
        100 'RECURSIVE' detach
        -> PROC
        <<
                do PROC recv until end drop2

                do
                        // Parent waits for datas sent by child.
                        do PROC recv until end
                        list-> drop dup " on the wall," + disp "." + disp
                        "Take one do