perl -we "package API{$|++;$'__=__PACKAGE__;$\"=','}print/J$__/?exit:qq($_\r)for glob qq{{@{[A..P,I]}}}x4"