9
hello
words
dup
last
init
tuck
left-cons
pop-a
100
range
m:
    3
    base #(num to list)
    push-a
    select
    unwords
    show-line