anchor.diff:  ~a
   
   Usage:
  -synchronizer vicon haptic output
  +synchronizer output [-h haptic-input] [-v vicon-input]
   
  -  vicon         Path to a vicon TIDE file
  -  haptic        Path to a haptic TIDE file
  -  output        Path to the resulting TIDE file
  +  output        Path to the resulting output TIDE file
  +  vicon-input   Path to a Vicon input file
  +  haptic-input  Path to a Haptic input file
   
  +An input file can be specified multiple times through repeated
  +usage of the option. An input file can be a TIDE file, a ZIP
  +containing further input files, or a CSV file (the default
  +assumption on an unknown file type). In the case of a TIDE file,
  +the option can only be specified once.
   
   Project URL:   ~a
   Maintained by: ~a
  
positive.code:                               (asdf:component-version system))))
                      (asdf:system-depends-on system)))))
  
  (defun main (&rest noop)
    (declare (ignore noop))
    (let ((args (uiop:command-line-arguments)))
      (case (length args)
        ((0 1 2)
         (print-help))
        (T
         (let ((args (mapcar #'uiop:parse-native-namestring args)))
           (synchronize :vicon (first args)
                        :haptic (second args)
                        :output (third args)))))))
  
negative.code:                      do (make-entry output (event-payload current) stamp
                                      :sequence-number i))))))
  
  (defun synchronize (&key output haptic vicon)
    (interleave
     (with-default-bag (bag vicon :direction :input))
     (with-vicon-channel (vicon-input bag))
  