Problem 55 in Forth