Create algorithm.intercal