waitforbarrier
waitforbarrier(F, "writer");
waitforbarrier(F, "closer"); /* wait for thread to start */
waitforbarrier(F, "reader");