lines
m:
    "5"
    <
    9
    +
    show
    @3
    right-uncons
    "."
    right-cons
    show-line