deleteHead :: [a] -> Int -> [a]
deleteHead (x:xs) n |(length (x:xs)) == n = (x:xs)
					| otherwise = deleteHead xs n
deleteHead (x:xs) n |(length (x:xs)) == n = (x:xs)
					| otherwise = deleteHead xs n