12
rrange
    691
    swap
    shift-left
    sqrt
    show
    p( "%5smm x" )
m6
pairwise
m:
    "A"
    counter
    dec
    show
    2
    ljust
    rot
    left-uncons
    7
    take
    new-line