lines
m:
    4
    ljust
    ( "\x8d_sy" )
    counter
    take
    last
    3
    base #(num to list)
    push-a
    reverse
    select
    @8
    show-line