line-mode
read-num
binary #(num to list)
0
itemize
logical-or
length
"("
times #(list)
@2
    ( "()" )
    times #(list)
    ")"
m3
catenate #(list+list)