f( "\\D+0*" )
@0
read-nums
    abs
    inc
    show
m3
empty-list
left-cons
zip