> module Project2CSupport(leftCircularShift)
>   where

leftCircularShift[a, b, c, ..., x, y, z] = [b, c, ..., x, y, z, a]

>   leftCircularShift :: [a] -> [a]
>   leftCircularShift xs = drop 1 xs  ++  take 1 xs