I'm out of words. This won't work something like `(1 2 3 3)`. Once again our tests are not comprehensive enough. There is an simple solution using `inits` and `tails`:
~~~{.clojure}
(if (empty? a-seq)
    '(())
    (rest (map concat (tails a-seq) (inits a-seq))))
~~~