pseudo-grep with -A -B

grep.hs

window n ls = filter ((n == ) . length) $ transpose . take n . tails $ ls

match_on_element _ _ []      = false
match_on_element 0 p x :: xs = p x
match_on_element i p x :: xs = match_on_elmement (i-1) p xs