(let ((v1 (u8vector-read input-port))
      (v2 (u8vector-read input-port))
      (v3 (u8vector-read input-port)))
  (vector-concat v1 v2 v3))