line-mode
    30
    &
    popcnt
m3
sum
uppercase-alphabet
push-a
and
save-b
left-uncons
3
copies
    inits
t1
tuck-b
right-cons
cartesian-product
get