dup
read-nums
m:
    abs
    show
    split
    left-uncons
    @3
    inc
    show
    rot
    @5
    join