BCPL
Written using
Q (4704)