,SUBSCRIPT ,EXAMPLES

#A4 ,OP5 P>5!SIS ;X SUB "O COMMA
  ;X SUB TWO CLOSE P>5!SIS IS
  WRITT5 _% (X1, X2) _:
#B4 ,! >EA ( A TRAPEZOID ,A
  EQUALS OP5 FRAC;N ;H OV] TWO
  CLOSE FRAC;N OP5 P>5!SIS ;B
  SUB "O PLUS ;B SUB TWO CLOSE
  P>5!SIS IS EQUAL TO OP5 FRAC;N
  ;H OP5 P>5!SIS ;B SUB "O PLUS
  ;B SUB TWO CLOSE P>5!SIS OV]
  TWO EQUALS "O-HALF OP5 P>5!SIS
  ;B SUB "O PLUS ;B SUB TWO
  CLOSE P>5!SIS ;H IS WRITT5 _%

    ,A .K ?H/2#(B1+B2)
       .K ?H(B1+B2)/2#
       .K ?1/2#(B1+B2)H _:

#C4 ,WAT] : IS AL "KN Z ;,H TWO
  ,O IS WRITT5 _% ,H2,O _:
#D4 A SUB I IS WRITT5 _% A;I _:
#E4 ,! EQUA;N A SUB ;N EQUALS A
  SUB ;N M9US "O PLUS ?REE    #A
  IS WRITT5 _% A;N .K A;N-1"+3
  _:

#F4 ,! EQUA;N A EQUALS OP5
  FRAC;N ;V SUB ;F M9US ;V SUB I
  OV] ;T CLOSE FRAC;N IS WRITT5
  _% A .K ?V;F"-V;I"/T# _:
#G4 ,! LOG BASE ;B ( A IS WRITT5
  _% LOG;B A _:
#H4 ,! LOG BASE TWO ( ;X IS
  WRITT5 _% LOG2 X _:
#I4 ,! NUMB] ( P]MUTA;NS ( ;N
  OBJECTS TAK5 ;R AT A "T IS
  WRITT5
  _% ;N",P;R ,'OR ,P;N[R _:
#AJ4 ,! NUMB] ( COMB9A;NS ( ;N
  OBJECTS TAK5 ;R AT A "T IS
  WRITT5
  _% ;N",C;R ,'OR ,C;N[R _:
#AA4 ,! NUMB] ( P]MUTA;NS ( FIVE
  OBJECTS TAK5 ?REE AT A "T IS
  WRITT5
  _% ;5",P3 ,'OR ,P;5[3 _:
#AB4 ,! NUMB] ( COMB9A;NS ( FIVE
  OBJECTS TAK5 ?REE AT A "T   #B
  IS WRITT5
  _% ;5",C3 ,'OR ,C;5[3 _:

#AC4 ,! EQUA;N "O Z]O "O "O Z]O
  SUB TWO EQUALS TW5TY-TWO SUB
  T5 IS WRITT5
  _% #10110;2 .K #22;10 _:

















                              #C