Problem 51 in Forth