diff --git a/lib.clx b/lib.clx
index 0088d0d..d203ad6 100644
--- a/lib.clx
+++ b/lib.clx
@@ -56,4 +56,4 @@
 :: range [ [] [ over over < ] dip swap while [ [ over ] dip qpush [ swap 1 + swap ] dip [ over over < ] dip swap ] nip nip ]
 :: qfor [ dup qlen while [ uncons drop [ [] cons cons ] dip swap dup 0 qget dip uncons drop swap 0 qget dup qlen ] drop drop ]
 :: for [ next next [ i ] dip swap qfor ]
-:: allot [ [] swap dup while [ swap 0 swap cons swap 1 - dup ] drop ]
+:: allot [ [0] swap * ]