line-mode
dup
read-num
popcnt
1
=
f:
    read-num
    dec
    show
    ( "and x" )
    catenate #(list+list)