product
1
    2dup
    +
b2
44
times #(eval)
wrap-stack
m:
    show
    length
    "*"
    times #(list)
    show-line