perm filename FORC.SAI[CMU,AIL] blob sn#119892 filedate 1974-09-19 generic text, type T, neo UTF8
00100	BEGIN "T"
00200	
00300	REQUIRE "[]<>" DELIMITERS;
00400	
00500	DEFINE MQ(N)=[FORC G←1 STEPC 1 UNTILC (N-1) DOC ["Q"&] ENDC "Q"];
00600	
00700	OUTSTR(MQ(5));
00800	OUTSTR(MQ(1));
00900	END "T"