Problem 14 in nimrod
Problem 50 in forth