Ive been trying to program grovers search in haskell, can you help me out?