FOCAL

From Rosetta Code