TransFORTH

From Rosetta Code