195
range1
m:
    64
    copies
        pop
        dup
        show
        reverse
        read-num
        +
    b6
    scan
    map-show
        dup
        reverse
        =
    f3
    head
    show-line