2
    &
    dec
m3
inits
    sum
m1
left-uncons
"*"
pair
5
range1
catenate #(list+list)
map-show
show-line
select
lines
head