line-mode
read-num
dec
3
base #(num to list)
2
diff #(list-elem)
2
catenate #(list+elem)
sum