1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(_, _) -> _ push 0 # use memory out argument as swap space swap 2 dup 1 dup 1 eq swap 3 pop 1 lt add pop_count return