adjProducts :: [Int] -> [Int]
adjProducts xs  = map product zs
    where ys    = map (\x -> take count $ drop x xs) [0..length xs]
          zs    = filter (\x -> count == length x) ys
          count = 13
adjProducts :: [Int] -> [Int]
adjProducts xs  = map product zs
    where ys    = map (\x -> take count $ drop x xs) [0..length xs]
          zs    = filter (\x -> count == length x) ys
          count = 13
adjProducts xs  = map product zs
    where ys    = map (\x -> take count $ drop x xs) [0..length xs]
          zs    = filter (\x -> count == length x) ys
          count = 13