. It does drop the top of the stack, too, though.

So, to compute and print 1001, do:

7 11 13 * * .

Also useful: .s non-destructively prints the stack (as does .S ; this forth does appear to be case-insensitive)