Problem 54 in Forth