RosettaCodeData/Task/Mutex/Oforth/mutex.fth

import: parallel

: job(mut)
   mut receive drop
   "I get the mutex !" .
   2000 sleep
   "Now I release the mutex" println
   1 mut send drop ;

: mymutex
| mut |
   Channel new dup send(1) drop ->mut
   10 #[ #[ mut job ] & ] times ;