product
0
    2dup
    +
    counter
    *
b4
49
times #(eval)
wrap-stack
unlines