Problem 58 in Forth