counter
16
crange
m:
    ( "Day " )
    swap
    show
    ":"
    space
    counter
    rrange
    enumerate
    reverse
        map-show
        "-"
        join
    m3
    show-comma
    new-line