,MAPS ,TO ,EXAMPLES

#A4 ,A MAPS TO ,A PRIME US+ !
  UNCONTRACT$ "R-PO9T+ >R[ IS
  WRITT5 _% ,A $33O ,A' _:
#B4 ,A MAPS TO ,A PRIME US+ !
  3TRACT$ "R-PO9T+ >R[ IS WRITT5
  _% ,A $O ,A' _:
#C4 ,TRIANGLE ,,ABC MAPS TO
  TRIANGLE ,A PRIME ;,B PRIME
  ;,C PRIME IS WRITT5
  _% $T ,A,B,C $O $T ,A',B',C'
  _:
#D4 ,OP5 P>5!SIS ;X COMMA ;Y
  CLOSE P>5!SIS MAPS TO OP5
  P>5!SIS ;X PLUS ?REE COMMA ;Y
  M9US #B CLOSE P>5!SIS IS
  WRITT5
  _% (X, Y) $O (X+3, Y-2) _:
#E4 ,! FUNC;N ;F MAPP+ ELE;TS (
  ;,X TO ELE;TS ( ;,Y IS WRITT5
  _% ;F_3,X $O ,Y _:


                              #A