,V]TICAL ,B> ,EXAMPLES

#A4 ,ABSOLUTE VALUE ( NEGATIVE
  FIVE IS WRITT5 _% \-5\ _:
#B4 ,?REE PLUS ! ABSOLUTE VALUE
  ( ;X IS WRITT5 _% #3+\X\ _:
#C4 ,OP5 ABSOLUTE VALUE ?REE ;X
  M9US SIX CLOSE ABSOLUTE VALUE
  IS WRITT5 _% \3X-6\ _:
#D4 ,! MAGNITUDE ( VECTOR ;V IS
  WRITT5 _% \V\ _:
#E4 ,! 8NORM ( ;F0 : IS ;F
  5CLOS$ BY D\BLE V]TICAL L9ES
  IS WRITT5 _% \\F\\ _:
#F4 ;,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 _:
#G4 ,! SET ( ALL ;X S* T ;X IS N
  EQUAL TO Z]O IS WRITT5
  _% .(X\X /.K #0.) _:

                              #A
#H4 ,! SET ( ALL ;X S* T ;X IS
  LESS ?AN TWO IS WRITT5
  _% .(X\X "K #2.) _:
#I4 A DIVIDES ;B IS WRITT5
  _% A\B _:



















                              #B