Oforth

From Rosetta Code