,SUBSCRIPT ,EXAMPLES

#1_4 ,OP5 P>5!SIS ;X SUB "O -MA
  ;X SUB TWO CLOSE P>5!SIS IS
  WRITT5 (X1, X2)
#2_4 ,! >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 6OP5 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
#3_4 ,WAT] : IS AL "KN Z ;,H TWO
  ;,O IS WRITT5 ,H2,O
#4_4 A SUB ;I IS WRITT5 A;I
#5_4 ,! EQU,N A SUB ;N EQUALS A
  SUB ;N M9US "O PLUS ?REE IS
  WRITT5 A;N .K A;N-1"+3
                              #A
#6_4 ,! EQU,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#
#7_4 ,! LOG BASE ;B (A IS WRITT5
  LOG;B A
#8_4 ,! LOG BASE TWO ( ;X IS
  WRITT5 LOG2 X
#9_4 ,! NUMB] ( P]MUT,NS ( ;N
  OBJECTS TAK5 ;R AT A "T IS
  WRITT5; ;N",P;R OR ,P;N[R
#10_4 ,! NUMB] ( -B9,NS ( ;N
  OBJECTS TAK5 ;R AT A "T IS
  WRITT5; ;N",C;R OR ,C;N[R
#11_4 ,! NUMB] ( P]MUT,NS ( FIVE
  OBJECTS TAK5 ?REE AT A "T IS
  WRITT5; ;5",P3 OR ,P;5[3
#12_4 ,! NUMB] ( -B9,NS ( FIVE
  OBJECTS TAK5 ?REE AT A "T IS
  WRITT5; ;5",C3 OR ,C;5[3
#13_4 ,! EQU,N "O Z]O "O "O Z]O
  SUB TWO EQUALS TW5TY-TWO SUB
  T5 IS WRITT5
  #10110;2 .K #22;10
                              #B