64
range
    7
    digit-left
    square
m3
2
repeat-product
    +
dm1
sort #(list)
group
tail
    head
    sqrt
    5
    +
m4
300
take
m:
    7
    power-of-10
    divmod
        show
    t1
    7
    48
    rjust
    "."
    swap
    init
    show-line