( ( ( ( ,-)) (- ,-))
               (
                 (  &;D      ~S:~%&;
                         ,-)
                 (- (-- ,-)))))
          (
           ( ( ( ( ,-)) (- ,-))
               (
                 (  &;D      ~S:~%&;
                         ,-)
                 (- (-- ,-)))))
          ( ( #'- '
                     : ', :  : )))
     ( **
         (- ))
     ( ( ( ) ) *--*)
     ( ( ) )))

;;;

( - ( &; ( *--*))
  ( (   : #')))


;;;

( --- ( &; ( *--*))
  ( #'( ()
            (  ( )))
        )
  )

;;;    /   ,
;;;
;;; '  ,

( -- ( -  - &; )
  ( ((- (  )
           ( ( (-  ) )
                ( ( ) (  (-  ))))))
    (* ((
           (-  - )
           (
             ( ((- (-  -)))
               (  &;U  (~S)   ~A  ~S ~%&;
                       - - (- ))
               (  &;~2TP  ~A : &; -))
             ( (-  -) ())
             (-  - ))))
        ())))