Give parrot basic $lock.protect(&code) facility