( [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) =m{+ekV;BGrind Sexp1:< FDLR F[VBF[VZFLFSBOUND F~MODELISP"N 0[Region Query Size' Z: :i*grindM(M.M& Save Region and Query)f"e' WJ [2[3 [D128*5,32:ID 11.*5:FD-D:M2 15.*5:FDRK:M2 12.*5:FD-D:M2 /*5:FDC |*5:FDR@FLL ;*5:FDL:M3 (*5:FD:M3 !"!'*5:FD:M3 )*5:FDRM3C :I2Z-.<1AF  :;D>32I :I3Z-.<1AF  :;D> HFD J.(0FSVBW0L.FSVB)J FSWIDTH-10[W FSWIDTH*2/3[C 0FO..QFill ColumnF"NUW QWUC' -1FO..QComment Column+1F"G-1UC' QC[M -1FO..QMiser Column+1F"G-1UM' [R:IR/8+1*8 0FO..QComment RoundingF"NUR' M.M& Indent [G@:IG` [2S'R 1A-("N@FWL' FL-.-QW++(FSHPOSU2Q2)"LFLL' CQ2-QM"L !"!1AF';()"L@FWL1A-32"EC''' FSHPOSU2 !LP!1a-32"EDOLP' 1A-)"EC' FSHPOSU3 1A-;"E Q3-QC"GQC'"#Q3R'MIL' Q3-Q2"N13I10I Q2/8,9IQ2&7,32I' +1MGOLP ` 0MG J7F~(DEFUN "E @FLL8F= "E 8D.U3L Q3,.F~FEXPR *(Q3,.F~MACRO )"E -2D6D''' JHU2U3 > JZ: Q3,Q2MACSYMA Grindr[0[1[9 0F[SERROR 1F[BOTHCASE 0FO..QFundamental..DF"EQ..D'[..D FS^RMODE"NF-1"G1U0' "#(B-(:))*(Z-(:))"G :I*MOB Mark out of boundsFSERR' .,(:)FU1J0U0 F=MODEMACSYMA"NOConfirm' .,q1-1000"g!Confirm!@FTDo you really want to Grind this s-expression? (Y or N): FI:FC-Y(FSEchoDisplayCFSEchoDisplay)"N'' .(<.,Q1FB\$\;;%0W>)J'' "#"GU0' "#J0U0J'' -S\$\;FSSVALUE"E0'"#2C.'U9Q9J Q0<.,(S\$\;;R.)M(M.MGrind one MACSYMA statement)C> Q9+2JGrind one MACSYMA statement[1[2[3[4[5[6[7[8[9[0[Y[Z[C[M FXCQ..OUMFSBCREAGC FNQM,Q..OUMU..OQMFSBKILL ZJI]JI[R JI$> J J J J J J J< SDOFORINFROMNEXTSTEPTHRUUNLESSWHILE; RI R-S1A-32"EDI'"#C'> J J J J JJ J J;RI C1A-="EC'I > 0U6J <1::;%6> << R-S1A-1"NC'.U9 FLLZ-.UZBUY Q9,.FSBOUNDW0U5J S(RB-."ES,FSSVALUE"N1U5'' "#B,.FBBLOCKLAMBDAFSSVALUE"L1U5'' J Q7FSQPUNWI0;' 0A-"E-1A-O"E0U3'"#-1U3'' "#-1A-F"E1U3'"#-1A-N"E2U3'"#3U3''' R-S(1A-)*(1A-)"N1U2 .U9-SQ9-.-20"GC.U41A-"E FLLQ9-."EOL2''"#1A-("E FLLQ9-."ERIQ4JI2+Q9U92+Q8U8OL2''' Q4JI (Q9+2JI )4+Q9U94+Q8U8' !L2!Q9J' "#0U2' Q2"ECI (Q8+2U8[1Q3U1' "#'S> > J Q5"EJ' "#J JS(RIZ-1JI' ZJQY,Z+QZFSBOUND 1::;>Q6-1U6-Q6"E0;'JQ6FDL> 0U8J' "#(1A-()"ECI %8' "#0A- "NRI C'CQ8-1U8(1A-)*(1A- )"N (1A-)*(1A-)*(1A-;)"EC'I Q8'''> J JJJ JJJDI ZJ-DI  JBU9 J J ZJ<.U90:LQ9-.-2"E2D'"#0;'> ZJ<-S$$;2DI\GB0A-13"EI ']B> ZJ<-S%$;CDI"R.U9-S$DI".,Q9KGA]A> ZJ<-S$1$;3D0LS 0A-13"ED-D0K'"#0L' I/**/ 4RGD]D> HFXC-1FSQPUNWINDFKGC~FILENAME~GRIND~DOC~ ~FILENAME~GRIND macros for formating code. ~DOC~ Grind SexpC Grind the sexp after the pointer. Uses QMiser Column to decide where to start using "Miser" format, and QFill Column as the page width to aim for. Can be undone with Undo. ~DOC~ MACSYMA GrindC Format MACYSMA code. When called from ^R mode it grinds from . to , unless it is given an argument in which case it does the command point is in. When called from regular TECO it the whole buffer if given no argument or MACSYMA commands after the . if given an argument . ~DOC~ Grind one MACSYMA statementC Grinds one MACSYMA statement. Args delimit the statement (exclusive of the ; or $) ~DIRECTORY~Grind Sexp MACSYMA Grind Grind one MACSYMA statement ~INVERT~[1Q1