read-num
4
primes #(4: factor)
last
binary #(num to list)
( "_-" )
select