rotate function

rotate :: Int -> [a] -> [a]
rotate    n      cs   = drop n cs ++ take n cs