LockedPoll

type Key k

type KeyFcn st k

makeLockingFunction