,V]TICAL ,B> ,EXAMPLES

#1_4 ,ABSOLUTE VALUE ( NEGATIVE
  FIVE IS WRITT5 \-5\
#2_4 ,?REE PLUS ! ABSOLUTE VALUE
  ( ;X IS WRITT5 #3+\X\
#3_4 ,OP5 ABSOLUTE VALUE ?REE ;X
  M9US SIX CLOSE ABSOLUTE VALUE
  IS WRITT5 \3X-6\
#4_4 ,! MAGNITUDE ( VECTOR ;V IS
  WRITT5 \V\
#5_4 ,! 8NORM ( ;F_0 : IS ;F
  5CLOS$ 0D\# V]TICAL L9ES IS
  WRITT5 \\F\\
#6_4 ;,W REPRES5T+ "W EQUALS !
  L5G? (! =CE VECTOR ;,F "TS !
  L5G? (! 4PLACE;T VECTOR ;,D
  "TS ! COS9E ( ANGLE ,A 2T !
  TWO VECTORS IS WRITT5
  ,W .K \,F\\,D\COS ,A
#7_4 ,! SET ( ALL ;X S* T ;X IS
  N EQUAL 6Z]O IS WRITT5
  .(X\X /.K #0.)

                              #A
#8_4 ,! SET ( ALL ;X S* T ;X IS
  LESS ?AN TWO IS WRITT5
  .(X\X "K #2.)
#9_4 A DIVIDES ;B IS WRITT5 A\B




















                              #B