[1[2[X <^N^_; A 1L .,ZK> !Get the names of the Q-registers! J <(Z-.); @I#@I/# C .U1 0E R Q1,.X2 C @I# / G(# G2 @I#)PWHK# 1L> !Make a macro to write them all out! HXX HK MX @^A/File is still open for output / ]X]2]1