Functional Rotate

rotate :: [a] -> Int -> [a]
rotate list n = realRotate list [] n
  where realRotate (x:xs) ys n
          | n == 0 = (x:xs) ++ ys
          | otherwise = realRotate xs (ys ++ [x]) (pred n)