src/Util.lhs

   1 \begin{code}
   2 module Util where
   3
   4 join x []      = []
   5 join x [a]     = a
   6 join x (a:b:c) = a++x++(join x (b:c))
   7 \end{code}