\begin{code}
-- Copyright 2008 the Contributors, as shown in the revision logs.
-- Licensed under the Apache Public Source License 2.0 ("the License").
-- You may not use this file except in compliance with the License.

module Util where

join x []      = []
join x [a]     = a
join x (a:b:c) = a++x++(join x (b:c))
\end{code}