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

isEqMove :: WhichMove -> WhichMove -> Bool
isEqMove BlackMove BlackMove = True
isEqMove BlackMove BlackMove = True