product
dup
    2dup
    inc
        pick
    t1
    +
b5
298
times #(eval)
wrap-stack
unlines