Problem 53 in Forth