Small library for plain luatex for preventing single