Text this: The design and implementation of a structured programming language for the description of optical architectures