Bonus: solution in Forth.