insert element at given position

insertAt.hs

myinsertAt :: (Num a, Eq a, Ord a) => a -> [a] -> a -> [a]
myinsertAt e [] p | p > 1 = error "Position out of bound."
myinsertAt e xs 1 = [e] ++ xs
myinsertAt e (x:xs) p = [x] ++ myinsertAt e xs (p-1)
main = do
  let l = [1..6]
  print $ myinsertAt 11 [] 1
  print $ myinsertAt 11 [1..6] 1
  print $ myinsertAt 11 [1..6] 3
  print $ myinsertAt 11 [1..6] 7
  print $ myinsertAt 11 [1..6] 8